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DECLARATIONS 
R/W 


CAN CHECK 
STORE-STEP 
RES_SAVE 
REG” CHECK 
PRINT FAIL 
REG_CRECKNP 
ERLBUF _DUMP 
MODE _I 
ALLDAL_ CHK 
ASSDAS~ CHK 
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“SEP=1984 04:29:37 CUETPSY.SRCJSATSSSO1.MAR;1 ( 


~ TITLE FATSS30) = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 
IDENT ‘VO4= 


pi aia naa ic acl trl ct pean acini 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


et 
-* ® 
*® ® 
* ® 
‘? ® 
;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND gd * 
;* N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* l 6 FTWARE ANY OTHER * 
:* ® 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
** ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
** ¥ 
-* ® 
** ® 
** a 
‘? ® 
® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITTIIITIIIITITITITITITI TTI TITITTITITT TTT Titi TiTiTiTiiiiitiiitiiii titi titi 
: “FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSSO1 module tests the execution of the following 
: VMS system services: 


SASSIGN 
SALLOC 


a a ssacldapouetecieagntali wciisadeliidleeapeiesomloahuneiededineiaediaaibiabmtabiaisaneradiadaae 


; ENVIRONMENT: User mode image. : 
: Needs CMKRNL privilege and dynamically acquires other 
privileges, as neede 


NAUSEA OC OD NAUSEA 0 ODNAUN EWN 9 ODNOA UNE IN 2 CO ODNIO NEA OOONOUE WN 


TUT UU BS BB BE EWA poo rononononong 3 


0 
09 ; AUTHOR: Larry D. Jones, CREATION DATE: JULY, 1979 | 
6 ; MODIFIED BY: | 
; v03-004 KDM0002 Kathleen D. Morse 28-Jun-1982 
3 Added $PRDEF and $SSDEF. 
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= SATS SYSTEM SERVICE TESTS (suce §.€.3 pats a 4 $088 144:467 atv Macro v04-00 Page 
~SEP=1984 04:29:37 (CUETPSY.SRCJSATSSSO1.MAR; 1 
28 ; v03-003 RNHOOO2 erceers N. Holstein, 22-Jun-1982 
3 Fix to print correc dey vice and unit number when checking data 
60 ; buffer for disks (STP36). 
0 61 ;** 
0 62 ;-- 


M SERVICE TESTS 


64 
g2 i 
89 
68 «LIBR 
3 SATRDEF 
0 SCCBDEF 
71 SOCDEF 
i SDEVDEF 
7 SDIBDEF 
74 SOVIDEF 
75 $F IBDEF 
76 SPHDDEF 
77 SPROEF 
ee SPRVDEF 
7 SLDEF 
i 
SSSDEF 
HE SSTSDEF 
2, SUETPDEF 
g: ; Equated symbols 
8 WARNING = 0 
9 SUCCESS = | 
90 — = ; 
91 INF = 
ae SEVERE = 4 
ws 3 
oe MFD_FILE_ID = 
96 : MACROS 
97 ;: 


0 3 
(SucC $.C.) 16- 


«SBTTL DECLARATIONS 
: MACRO LIBRARY CALLS 
ARY /SYS$LIBRARY: STARLET .MLB/ 


<4916>+4 


: stack 


SAT e563. MAR; 1 


attribute control block definitions 
channel control block definitions 
device characteristics definitions 


dev nformation block definitions 
$SGETDVI definitions 

file information block definitions 
process header offset Gey rit rons 
processor register definitions 

Ae e de nrene 


$P Ld 

SSHR_MESSAGES UETP,116,<<TEXT, info>> ; UETPS_ TEXT definition 
SSFDEF frame definitions 

stem stotys code definitions 
STS definitions 

: Serpe message definitions 


warning severity value for msgs 
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4:29:37 


AX/VMS Macro V04 
UETPSY.S 


-PSECT RODATA,RD,NOWRT ,NOEXE ,LONG 


test _MOD_NAME : 


/SATSSSO1/ 


TASCIB /SATSSSO1/ 


TASCIC 
TEST_MOD_NAME_D 
TEST_MOD ~BEG! 

-ASCI 
TEST_MOD_SUCC: 

TASCIC 
TEST_MOD_FAIL: 

TASCIC 
ASSIGN: 

ASCIC 
ALLOC: 

ASCIC 
CANCEL: 

ASCIC 
DASSGN: 

ASCIC 
DALLOC: 

ASCIC 
INPUT: 

ASCIC 
GETCHN: 

ASCIC 
GETDEV: 

ASCIC 
OUTPUT: 

ASCIC 
Q10: 

ASCIC 
Q10W: 

ASCIC 
DCLCMH: 

ASCIC 
RENAST: 

ASCID 
DISK: 


" /begun/ 
/successful/ 
/failed/ 
/ASSIGN/ 
/ALLOC/ 
/CANCEL/ 
/DASSGN/ 
/DALLOC/ 
/INPUT/ 
/GETCHN/ 
/GETDEV/ 
/OUTPUT/ 
/Q10/ 
/Q10W/ 


/DCLCMH/ 


/QIOTST.DAT;1 


; needed for SATSMS message 


module name 
start end and fail messages 


; system service names 


returned name string 


}SATSssot «MAR; 1 
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SATSSS01 = SATS SYSTEM SERVICE TESTS (SUCC $.C.) 16-SEP-1984 00:44: AX/VMS Macr P 
y042000 DECLARATIONS Breer ee assests LORTMee eae sgay esos man:1 P29" 
49 44 246 53 59 53 seotneillndy } iy: DAs 138 -ASCID /SYSSDISK/ ; aio device name 
A 139 CS1: ; failure messages 
21 20 74 73 65 54 0 go 01 negeee A? 140 LASCID \Test !AC service name !AC step ‘UL failed. \ 
of $? § $3 g 4 BS 
6 2 § 3 3 4 $p gi C1 
2E 64 65 6C 29 61 66 b fe cB 161 ¢S2 
74 ; 5 70 78 45 9 0000 1'Qi0E90 00° 3 142 : -ASCID \Expected !AS = !XL received !AS = !XL\ 
4C 1 ey 43 4 41 21 9 9 E 
41 21 20 65 76 g $3 3 $ 3 ; H 
4C 58 21 20 3D 2 rt 943 C43 
74 $3 65 7 4 45 0 O09 OF "8106 9009" 16 144 : -ASCID \Expected !AS!'UB = !XL received 'AS'UB = !XL\ 
20 3D ¢0 42 55 21 53 41 21 20 64 114 
64 $3 6 ¢ 65 63 g 72 g 4C 58 21 120 
58 21 20 3D 20 42 55 21 41 21 fe : £ 
4 9 145 CS4: 
72 69 75 71 65 52 00000141'010E0000" 0139 146 «ASCID \Required channel not received.\ 
6E 20 6C 65 43 of 61 oe $3 $8 $ ei 65 g13¢ 
2E 64 65 76 69 65 63 6 0 74 6F Bla3 oy ts 
77 20 65 64 6F 4D 9 0909167"9105 9000" O1SF =: 1148 : -ASCID \Mode was !AS.\ 
2E 41 21 20 0160 
4 4 149 EXP: 
73 75 74 61 74 73 0000017¢'010E0000' 123 139 rel -ASCID \status\ 
61 74 73 20 4F 49 0000018A"010E 0090" O18 152 "  ASCID \IO status\ 
73 74 19 
019 153 ASTEXP: 
61 70 20 54 53 41 00000198 "91060099" 19 154 -ASCID \AST param.\ 
2E 6D 61 1A1 
1A5 155 DISALL: 
61 20 6B 73 69 64 000001AD'010E0000' ine 156 eASCID \disk alloc.\ 
2E 63 6F 6C 6C is 157 locc: 
63 20 66 6F 20 23 00099169 "0106 909 . iB 158 "  ASCID \# of chan's\ 
73 27 6E 61 6 1C6 
0 65 6C 00001D3°010E0000" S166 140 LUNOTMOD; ey \Fite characteristics not ly modified!\ 
. . . e characteristics not properly mo ed! 
ELE LEPEDERL pene 
é5 70 oF 27 26 74 6F 33 $3 f ef 1€5 
9 66 69 64 6F 6D 2 Ha 
1FE 161 UM: ; mode messages 
72 65 73 75 00000206'010E0000' WE 19¢ 2 -ASCID \user\ 
72 65 70 75 73 00000212'010E0000' oA 198 fe: -ASCID \super\ 
74 75 63 65 78 65 sccntetchille | 9 17 3166 : -ASCID \executive\ 
167 KM 
6C 65 6E 72 65 6B 00000230'010E0000' : 3 -ASCID \kernel\ 3 
1 MBA: ; mailbox name 
41 42 4D 0000023E°010E0000' 1 9 -ASCID \MBA\ 
4 171 EFCNAM: ; common EFC name 


SATSSSO1 = SATS 
vous000 DECLARA 
45 24 50 54 45 55 secpateert Today + 


00000000 


00 
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172 -ASCID \UETPSEF\ 
173 TEST_DATA: 

174 =0 

175 REPT 132 

178 a A 

Vf A=A+ 

1 8 ENDR 

179 ARGLST 

180 «LONG 1 

181 «ADDRESS SUPER_MODE 
1 ¢ MSGV 

1 -LONG 3 

: - LONG ETPS_TEXT 
186 -ADDRESS MESSAGEL 


0:44:47 VAX/VMS Macro V04- 
§0:3$:35 LOE TP SY RETSAYSeSO+ MAR: 


; Q10 test data 


; super mode setup arg List 


; PUTMSG message vector 


; 


toatl * 
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TMN_ADDR 


00000000" “ADDRESS TEST_MOD_NAME 
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SATSSSO1 - SATS SYSTEM SERVICE TESTS (suce $.C.) 16=-SEP-1 0:44:47 \VAX/VMS Macro v04- Pa 7 
$bu880 DECLARATIONS g- -SEP-19 32 §0:59:4) YUETP SY. SRCIS TSaNeesoy. MAR; 1 26 1 
188 ; 
18 ~SBTTL R/W PSECT 
0000 19 -PSECT RWDATA,RD,WRT,NOEXE,LONG 
19 tPID: 
00000000 1 LONG 0 ; PID for this process 
3 CURRENT it: 
00000000 1 - LON 0 ; ptr to current test case 
19 ALIGN LONG ; put it on a long word boundry 
197 REG_SAVE_AREA: 
00000044 19 LKL 15 3 register save area 
1 MOD_MSG_ CODE: 
00748009 -LONG UETPS_SATSMS ; test module message code for putmsg 


$ 
R 
00 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 


3 
at 138 
: 1 
3 g TMD_ADDR: 
00000019" : sewnts «ADDRESS TEST_MOD_BEGIN 
6 $ YTE 0O 3; protection return byte for SETPRT 
0 PRIVMASK 
00000000 00000000 + ran Cott AD 0 3; priv. mask 
00000000 19 renee LONG 0 z change mode continue address 
00000065 ; \¢ erates” 5 Uae 3; returned address's from SETPRT 
00000000 : 1 erat LONG 0 
00000071 0 18 aaa -BLKL 2 ; 10 status blk's 
00000079 18 ate BLKL 2 
p M y ae SASSIGN MBNAM,CHAN2,PSLSC_USER,O ; ASSIGN parameter List 
5 3 ¢ Rt SALLOC MBNAM,ML,GETBUF,PSLSC_USER ; ALLOC parameter List 
OAS 4 " $CANCEL MBCHAN ; CANCEL parameter List 
OAD 5 DASS 
0 3 $ SDASSGN 0 ; DASSGN parameter List 
0B DALL 
303 3 acre SDALLOC MBNAM,PSLS$C_USER ; DALLOC parameter List 
Goe} ? este SGETCHN 0,PL,PB,SL.SB ; GETCHN parameter List 
o09 ¢ are SGETDEV MBNAM,PL,PB,SL,SB ; GETDEV parameter List 
a : jae $010 31, CHAN1, 1O$_READVBLK,STAT1,0,0,GETBUF+8,80,0,0,0,0 ; Q10 parameter’ 
: 3 $ nooe $Q10W 31,MBCHAN,1O$_READVBLK,STAT1,0,0,GETBUF+8,80,0,0,0,0 ; Q10W param's 
00000000 : : 8 ait -LONG 0 3; current mode string pointer 
74 73 69 67 65 72 00000163"91069090" 15D 40 ; -ASCID \register R\ 
7 . 1p 41 REGNUM 
00000000 1¢f ge -LONG 0 : register number 
173 45 MSGL 
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R/w PSECT SSEp-1986 ba :29:97 EOetPSY.sReagaveesot.mar:1 Aa Gy vo4 
050 1 44 -LONG 80 ; buffer d ‘ 
80000178" ; 5, sADDRESS BUF wih sa | 
000001¢B 0178 ‘3 i "  BLKB 80 | 
88808000 1¢B rt ; «LONG 0 ; desc. for BUF_CHECK routine | 
1DB* OICF 0 -ADDRESS GETBUF +8 
1D 1 GETBUF: 
0000084 01D { -LONG 132 ; same as above | 
44 198° 1D ADDRESS ,+4 
000025F iP 4 joann LKB. 132 
0000: r¢: § " LONG 132 ; same as above 
BR 00267" 026 5 ADDRESS .+4 
someett ts 38 ARGLST1 — 132 t List for BUF_CHECK 
: 3 argumen st for 
00000236" 0568 560 LADDRESS MBA ° : 
ener FF 8) MESSAGEL: : 
bo000178" 0303 i “hoes eau Npersagd sce: 
$5 65 SERV_NAME : 
00000000 ti 6 omnes -LONG 0 ; service name pointer 
00000000 08 68 ",LONG 0 ; previous handler address 1 
4D 24 50 54 45 55 00000317"010E0009" oF 4 " ASCID /UETPSMB/ : logical name for mailbox 
1E 71 MBCHAN 
0000 if 4 aaa WORD 0 ; mailbox channel number 
0000 : iS ane -WORD 0 ; utility channel numbers 
0000 26 -WORD 0 
4 277 CHAN_SAVE: 
0000 4 78 «WORD 0 ; channel count save location 
6 79 MSGVEC1: ; PUTMSG message vector 
90000003 6 80 -LONG 3 
stay : A 81 ther ye TPS TERT 
$0099000 : : “LONG 0 
6 4 MB_DEV_CHAR: 
0¢150001 6 5 -LONG DEVSM_SHR!DEVSM_REC!DEVSM_AVL !DEVSM_IDV!DEVSM_ODV!DEVSM_MBX ;device 
A A § BYTE DC$_MAILBOX 3; device class 
-BYTE T$_MBX ; device type 
C 3 WORD 56 : buffer size 
- LONG ; device dependent info. 
; 0 WORD 36 ; unit # & device name offset 
Y 91 LONG ; P 
‘ ry 35 -LONG *x10007 3 owner UIC 
' 9 - LONG ; volume protection & error cnt 
2001 ; 94 LONG 3; operation count 
0000000 95 LONG ; volume name offset & record size 
r 96 eASCIC /MBA/ 3; device name 
: t 397 MB_CHAR_SIZE=.-MB_DEV_CHAR 
E 98 PL: 
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vous000 R/wW P 


= 
SS 


a 


nttttas 
00 an478 
00000029 
0010 00 
Dougo4es: 49 
49 
54 53 54 4F 49 51 googosa 9105 2080" 


53 45 54 53 59 53 00000487'010E0000' O4AF 
31 3 52 49 44 He 32 


31 3B 52 49 44 2E 000004CC'010E0000° 04¢4 


00000006 is 
4F 54 24 53 59 53 000004DA'010 * 04D 
53 5953 50. ee 


QOOOOOOF 0454 
QOOO4EC’ O4E8 
O0004FB O4EC 
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IS tS fi 0:39:35 fueTPsy. SRCIS ATT A MAR; 1 
-LONG 0 
SL: 
-LONG 0O 
PB: 
et et tone LENGTH 
$3 “BLKB. DIBSK LENGTH 
“LONG b1es LENGTH 
ADDRESS . 
-BLKB pinsk LENGTH 
FIBDES: 
-LONG FIBSIZE 3; file information block desc. 
«ADDRESS FIB 
FIB: 
~ LONG 3; ACCTL 
-BLKW ; FID 
«LONG MFD_FILE_ID ; DID 
BLK is ; leave room for add in fields 
ps FIBSIZE=” -FIB ; set FIB size 
-WORD ATRSS ret. ATRSC_ASCNAME ; attributes control block 
“ADDRESS TOPSYS_DIR 
FILENAME : 


Ww 
mr 


MFrwN —COOCOnN Ou 
~ 


WA 


MPMARINONY 3 2 3 SS IGQOOOOODO000 


FAN OOO NOUNE WN OO OONOUS 


WIAA rrorore 


eASCID = /QIOTST.DAT;1/ 


SYSTEST_DIR: 
-ASCID /SYSTEST.DIR;1/ SYSTEST directory name 


OOT PIR se sein: 17 ; Concatenates with TOPSYS_DIR 
DOT .DIR_SEMI_LENGTH =".-DOT_DIR_SEMI-8 ; Length of ASCII string 


3 meetees name of any top level. 
eASCID /SYSSTOPSYS/ -system directory name 
TOPSYS_DIR: 


-LONG 9+D0T_DIR_SEMI_LENGTH 
“BLKB. 9SD0T _DIR_SEMI_LENGTH 


qio test file name 


pacetues file name of top level. 
--system arr ee cere. 
—? ets converted to... 
-a file spec for it 
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0 V04- 
SEP-1984 04:29: UE TEST. SAE TSATSSSO4 MAR: 1 


«PSECT SATSSSO1,RD,WRT,EXE,LONG 
-SBTTL SATSSSO1 


+ 
FUNCTIONAL DESCRIPTION: 
After performing some initial pousenees tng. such as 
r 


hgh the module begin message and og ng needed privileges, 
em 


the sys ervices are tested in each of their normal conditions. 


| 
| 
Detected failures are identified and an error message is printed | 
on the terminal. Upon completion of the test a success or fail | 
message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN SATSSSO1 ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSSO1. 
They are of the form: 


ZUETP-S-SATSMS, TEST MODULE SATSSS (BEGIN MSG) 


01 BEG ee 
RUETP=S-SATSMS, TEST MODULE SATSSSO1 SUCCESSFUL ... (END MSG) 
RUETP-E-SATSMS, TEST MODULE SATSSSO1 FAILED ... (END MSG) 
RUETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSSO1 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 
none 


TEST_START SATSSSO1 ; let the test begin 


- 
3 | 
SATSSS01 - SATS SYSTEM SERVICE TESTS «suck $.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04- Pa 11 SAT 
SOus880 SAT Sseos Sty fi 0:39:35 UE TPSY. CRETSAYSSSOS MAR: 1 = (1) v04 
0000 ENTRY SATSSSO1,0 
0004'CF D4 CLRL © WCURRENT_TC 
DD PUSHL | 
0000' CF OF PUSHAL W*TPID 
90000000 | GF ; as) § CALLS »G*SYSSWAKE 
— ‘B60 "CF Fe iA SUSHAG U*fEST ROD_NAME D 
00000000 ' GF 1 Fe 1 CALLS #1,G*SYSSSETPRN™ 
coccrer oll § Ba HORT aSSPRUNT vet, on 
0044'CF 65 88 1 4 F INSV #SUCCESS ,#0,43,W*°MOD_ASG_CODE 
0 oD § PUSHL 
1385'CF 1 FB 03D STPO CALLS #1,W*REG_SAVE 
03D 87 SCMKRNL_S W*SETUP_SUPER,W*ARGLST ; declare CHMS handler 
SE 10° CO 004c 388 ADDL2 “S*#EXESC_CMSTKS2+16,SP ; adjust the user stack pointer 
5D 3 DO Ones 89 VL ‘ :; fix the frame pointer 
1AF2°CF 0 FB B26 90 CALLS #0,W*ERLBUF_DUMP 3; dump any errors that occured at kernal mod 
005 91 <SBTTL ASSIGN AND BASSGN TESTS 
057 3 3+ 
057 93 ; 
057 94 ; SASSIGN and S$DASSGN tests 
0057 95; 
Ss Sop | core 
0057 98 ; Because the only device that is reasonable to use for the ASSIGN/DASSGN 
0057 99 ; tests is a mailbox, the MBXNAM parameter is not tested by this program. 
0057 400 ; The only devices using this parameter are lineprinters, networks 
bpep $8) 3; and terminals and none of these things can be guaranteed available. 
0057 403 ; test user mode 
0057 404; 
0057 405 ;:- 
O307'CF OO31'°CF DE 0057 406 MOVAL W*ASSIGN,W*SERV_NAME ; set service name 
0159°CF O1FE'CF DE 94) 407 MOVAL W*UM,W“MODE 3; set mode 
0065 408 SASSIGN_S CHAN = W“MBCHAN,- 
bnge 409 AM = W*MBNAM : see if perm MBX Left over 
00000908 8F 50 »D1i 0076 410 CMPL RO, #SS$_NOSUCHDEV ; is it here 
18 13 007D 411 BEQL ~=s.:-108 : br if not 
O7F 216 SDELMBX_S CHAN = W*MBCHAN ; else get rid of it 
O89 ai7 108 SDASSGN_S CHAN = W*MBCHAN ; drop the channel 
133C°CF_ 00 Fe 944 415 CALLS #0,W*COUNT_CHAN 3; get enviromental channel count 
O324'CF 1338'CF OD 9 $18 MOVL Ww°fOTAL_ CHAN, *CHAN_SAVE 3 Save the enviromental chan count 
3 DD OA 41 PUSHL #PSLS$C_OSER 3; push the access mode 
1BEF ‘CF 1 FB A 18 CALLS #1,W*ASSDAS_CHK ; do the assign/deassign tests 
1AF2°CF O00 FB ne $1? . CALLS #0,W*ERLBUF_DUMP ; dump any errors 
AF 421; 
AF 4 § 3; test super mode 
AF 4 2 
AF 424 ;- 
rv! 425 NEXT_TEST 
AF STP1: 
0004 'CF 01 dO AF MOVL #1,W*CURRENT_TC 


[a — 


1385'CF 8° 
gro7eF aa 


1 
1AF2'CF 0 


0004 'CF 

1385'CF 
O15S9°CF 021 
0307°CF 003 


0 
1BEF'CF 01 


1AF2°CF 00 


1BEF ‘CF Of 


2°'cF 00 


1AF 2° 
O1S9"CF «6O1FE'CF 


m3 
SERVICE TESTS (SUCC S.C.) 16-SEP-1984 
SSGN tES1§ 9735-198 


Pet 
n” 


S 
$ 
Dd 
B 
E 
E 
E 
B 


“WoO? 


PLL LEE EES 


US Wn—-O0OOnNo 


WUWND 
+ 


SHELLS ELSES 
al oe ot ot at ot at ot ot eee 
RM OODNOAUSWN—OOONA 


PPLE PWIND | DOO CODDDDODODODO00 


NNN OO PS OOM OfoW & ™ S 690000000000 000000 


SPELL LLP LLL LESS 
PEO OOOIMVINIUIV 
AUF WN OVONOULS Ww 


4 


PUSHL 40 

CALLS #1 ,W*REG SAVE 
MOVAL W*ASSIGN,W“SERV_RAME 
MOVAL W*SM,W°MODE 
CHMS # 


CALLS #0,W*ERLBUF_DUMP 


test exec mode 


STP: 


10$: 


10$: 


20$: 


NEXT_TEST 
MOVL #3 ,W*CURRENT_TC 
PUSHL # 
CALLS #1,W*REG_SAVE 

MOVAL W*EM,W* 

MOVAL W*ASSIGN, W"SERV_NAME 

SCMEXEC_S B*10$ 

BRwW 20$ 

«WORD 0 

PUSHL #PSL$C_EXEC 

CALLS #1,W*ASSDAS_CHK 

RET 

CALLS #0,W*ERLBUF_DUMP 

test kernel mode 

NEXT_TEST 
MOVL #3,W*CURRENT_TC 
PUSHL # 
CALLS #1 ,W*REG SAVE 

MOVAL W*ASSIGN,WASERV_NAME 

MOVAL  W*KM,W°MODE 

MOVAL W*ASSIGN,WSERV_ NAME 

SCHKRNL_§ B*10$ 

BRW 0$ 

.WORD 0 

PUSHL #PSLS$C_KERNEL 

CALLS #1,W*ASSDAS_CHK 

RET 

CALLS #0,W*ERLBUF DUMP 

MOVAL W*UM,W“MODE 
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) 


set service name 
set the mode 

do the super tests 
dump any errors 


set the mode 
set service name 
get thee to exec mode 


push the access mode 
do the assign/dassgn tests 
return to user 


dump any errors 


; set service name 
; set the mode 
; set service name 


; skip the routine 


ush the access mode 


> Pp 
; do the assign/dassgn tests 
; return to user mode 


report any errors 
reset the mode 


] 
3 | 
SATSSSO1 = SATS SYSTEM SERVICE TESTS (suce S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04-00 Page 13 
SOu S885 ALLOC AND DALLOC TESTS g-§ EP-1984 90:33:35 UETPSY.SR Reig ay ecsOs MAR: . (2) | 
14—E 46 -SBTTL ALLOC AND DALLOC TESTS 
Bie 
14E 159 ; SALLOC and $DALLOC tests 
14E 158 3 
14E 475 ; test user mode 
14E 474; 
14E 475 ;:- 
14E 476 NEXT_TEST 
14E 
14E STP4: 
0004'CF gs dO 14 MOVL #4 ,W*CURRENT_TC 
0 odd 015 PUSHL # 
1385'CF 01 FB 15 CALLS #1,W*REG_ SAVE 
0307'CF 0038; CF DE O15A 477 MOVAL WALLOC, w*SERV_NAME : set service name 
0159'CF 1FE'CF DE 161 478 MOVAL W*UM,W* MODE 3; set the mode 
$198 479 SCREMBX_S CHAN =W“MBCHAN,- 
016 480 bee AM=W“MBNAM, - 
3188 481 PRMFLG=41 3 create an allocatable device 
81 F 4 ¢ SDASSGN_S CHANSU*RBCHAN ; make it allocatable 
03 OD 01868 48 PUSHL “#PSL$C_USER 3 push the mode 
1BSC'CF 01 FB O18D 484 CALLS #1 SUTACLDAL. CHK 3 check the services 
1AF2'CF 00 FB 8136 485 CALLS #0. W*ERLBUF— DUMP ; dump any errors 
019 486 ;+ 
0197 487; 
0197 488 ; test super mode 
0197 489; 
0197 490 ;- 
0197 491 NEXT_TEST 
0197 
0197 STP5: 
0004 ‘CF 05 DO 0197 MOVL 63. W*CURRENT_TC 
00 ODD 019C PUSHL 
1385'CF 01 FB b4K8 CALLS * W*REG_SAVE 
O307'CF O038'CF ODE OIA 49 MOVAL WPALLOC , ats SER ERV_NAME : set service name 
0159'CF O20A'CF DE 1AA 49 MOVAL W*SM, ; set the mode 
03 BE O181 494 CHMS #3 ; do the super mode tests 
pie 495 ;+ 
18 496 ; 
018 497 ; test exec mode 
18 498 ; 
1B 499 :- 
18 500 NEXT_TEST 
1B STP6: 
0004 'CF 06 b0 18 MOVL #6,W*CURRENT_TC 
bY DD 18 PUSHL # 
1385" 1 FB 1BA CALLS #1,W*REG SAVE 
0307'CF O38°CF DE O1BF 01 MOVAL WrALLOC w*SERV_NAME > set service name 
0159'CF 217°CF DE 01C6 § MOVAL W*EM,W*MODE 3 set the mode 
51D 6 SCMEXEC § 8° 1s > get to exec mode 
OA 11 Ho : 108 BRB 0$ 3; Skip the routine 
0000 01DB 6 .wORD 0 
8 DD 10D PUSHL #PSLS$C_EXEC 3; push the mode 
1B5C'CF 1 FB O1DF 3 CALLS #1 HP ACEDAL _CHK ; do the tests 
04 1E4 RET 3; return to user mode 
| 


B 4 
SATSSSO1 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44: AX/VMS Macro V04- Page 14 SAT 
V04- ALLOC AND DALLOC TESTS aioe} fi 90:59:45 LOT Bey eRe TGAYSSSOy MAR: 1 ° (2) v04 
1E 10 208: 
1E 1) 3° 
1€ 1¢ 3 
1E 15 ; test kernel mode 
1E 14; 
1E 15 ;- 
IE 16 NEXT_TEST 
1E STP?7: 
0004'CF o? +4 HH othe #7 W°CURRENT TC 
1385'CF gt FB 1EC CALLS #1,W*REG_ SAVE 
0307'CF Shi DE O1FI 17 MOVAL W*ALLOC,W*SERV_NAME ; set the service name 
0159'°CF 28'CF DE 1F8 13 MOVAL W*KM,W“MODE ; set the mode 
1FF 1 + ae af 3 get into kernel mode 
OA 11 8 08 0 BRB 0 3; Skip the routine 
OD 1 10$: 
0000 bp ¢ -WORD 0 
0 DD F PUSHL #PSLS$C_KERNEL ; push the mode 
1BSC'CF 1 £6 11 4 CALLS) #1,W*ACLDAL_CHK ; do the tests 
04 18 5 RET 3; return 
1 8 20$: 
0217 SASSIGN_S DEVNAM=W“MBNAM, - 
0217 8 CHAN =W“MBCHAN ; get the device back 
0 $e 9 SDELMBX_S CHAN =W*MBCHAN ; and get rid of it! 
MOV #0,W UF ,#0, W UF + ; clean up the buffer 
0084 8F 00 sett PO 2c 8 3 530 C5 0,W“*GETBUF ,40,4132,W°GETBUF +8 l he buff 


] 
‘ | 
SATSSS01 - SATS SYSTEM SERVICE TESTS suck $.C.) 16-SEP-1984 00:44 AX/VMS M fe 0 P 15 
y042000 CANCEL TESTS ~SEp198¢ Gesdo.k7 Lue bee eae igAyeesos mar: ome = 
4 ¢ ~SBTTL CANCEL TESTS 
d * | 
4 é ; SCANCEL tests | 
4 ; test EF wait 10 cancellation with _S form | 
4 i- 
4 40 NEXT_TEST 
4 STP8: 
0004 'CF 00 pe r part Hf »W*CURRENT_TC 
1385'CF 1 FB 47 CALLS #1 WW “REG_SAVE 
Ber ec tte 43 ef 4} ar UCANCEL WSS SERV’ NAME ; — Po name 
3; se e 
0 aA 2g SCREMBX Ss CHAN = W*CHANT = gas 
rh 44 “LOGNAM = W*MBNAM- ; make a MBX 
OOF9S'"CF 0320'CF Hs 0271 45 MOVZWL W*CHAN1,W*QIOP+Q10$_CHAN 3; set eke channel up 
OOA9' CF 0320'CF C 0278 e783 MOVZWL waktas” ;W°CANC+CANCELS_ CHAN : in Q10 and CANCEL 
O27F 54 pe 0.G wW*QI0P ; do a read on the MBX 
0288 548 CANTEL_S CHAN=W*CHAN1 ; cancel the I0 
0294 549 PAILS CHECK sane NORMAL 3; check for success 
01 DD 8 94 #SS$_NORMA 
138F ‘CF 01 FB 96 CALLS #1 »W*REG_ CHECK 
0298 550 peeriee _S_EFN ; wait for 10 completion 
131B'CF 00 FB O2A4 ~~ 551 CALLS “#0, UnCAW. CHECK ; check 10 status block 
BM Ee 
02A9 554; test EF wait 10 cancellation with _S form 
ae 
O2A8 557 * NEXT_TEST 
3 Ag STP9: 
0004 'CF + + a aren op CURRENT. TE 
1385'CF 01 FB bsae CALLS #1 ,W*REG_SAVE 
Bs82 558 $Q10 G w*QioP ; do a read on the MBX 
BE 559 SCANTEL_G W* s Sry 
C 560 FAIL_CHECK SS$_NORM ; check for success 
01 0D C7 PUSHL ~ S83. 
138F °CF 01 FB c9 CALL #i,W "REG. Check 
ce 61 he ee N=#31 ; wait for I0 completion 
131B'CF 00 FB 4 ¢ A CALLS “jo UnCAN, CHECK 3; check the IO status block 
DC «564: 
4 6g ; test AST wait 10 cancellation with _S form 
dC 567 :- 
DC 68 NEXT_TEST 
oc STP10 
0004 "CF 00 +4 3) att 210 .W°CURRENT TC 
1385'CF 1 FB + CALLS #1,W*REG save 
0105°CF 1309°CF DE E 569 MOVAL W*IONC,w*QfoP+ai0 ASTADR ; set AST address | 
| 
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SATSSSO1 = SATS SYSTE 4:47 YVAX/VMS Macro v04-00 Page 
SOL S885 CANCEL rEST§ -SEP-1984 80:5 1:29:37 (CUETPSY.SRCIJSATSSSO1.MAR; 1 ° 
EF 70 $010 G w*Ql0P ; issue read on the MBX 
F8 4} SCANTEL_S CHAN gfe i cancel it 
4 7 FAIL_CHECK SS$_N ; check success 
8 0D 4 PUSHL ~ NOSStCN MAL 
138F ‘CF 1 FB 6 CALLS #1 UPREG. CHECK 
73 SHIBER_S ; wait for AST 
15 abe 
! 8 3; test AST wait 10 cancellation with _G form 
1 78 ;:- 
! 79 NEXT_TEST 
1 STP11 
0004'CF 0B pO 031 MOVL #11,W*CURRENT_TC 
00 OD 8 1 PUSHL # 
1385'°CF 01 FB 19 CALLS #1,W*REG_SAVE 
0 3 580 $Q10_G wW*QI0P ; issue read to the MBX 
2f! SCANTEL_G W*CANC 3 cancel it 
2 FAIL_CHECK $S$_NORMAL ; check for success 
01 ODD PUSHL rs. NORMAL 
138F ‘CF 01 FB O § CALLS #1 »W*REG_ CHECK 
9 583 SHIBER_S ; wait for AST 
011 .g DO 603 F 584 MOVL #1,W*QI0P+Q10$ ; reset Q10 parameters 
OOFD' CF 90006031" F DO 0343 585 MOVL #10$_R READVBLK g*GsoPsaros_ FUNC 
O10S'CF D4 O84C 5 $ CLRL —- W*QIOP+Q10$_ASTA 
0350 5 SDASSGN_S CHAN = Oe ehaNte : drop the MBX 


—— SS — -—4 


4 
SATSSSO1 = SATS syeten SERVICE TESTS csuct $.C.) i ed teh 9 0:44: 30 AX/VMS Macro V04-00 Page 17 
V04 GETCHN TESTS -SEP-1984 04:29:37 (CUETPSY.SRCJSATSSSO1.MAR;1 (2) | 
c i .SBTTL GETCHN TESTS | 
¢ 1; 
: 38 ; SGETCHN tests | 
C 94 : test _S form 
Be 6 as | 
c 39 ; NEXT_TEST 
C sTP12 | 
0004" CF a6 b0 2¢ mOVL #12,W*CURRENT_TC 
1385" CF 1 FB rt CALLS #1 .W* REG save 
0307'CF Byer ee DE 6 38 MOVAL UGE TCHN W*SERV_RAM ; set service name 
bi 59° CF rE CF DE ¢F 99 MOVAL W°UM.W*MODE : set the mode 
OO69'CF D4 6 on0 CLRL w* STAT : set guamy status 
0071'°CF D4 7A 601 CLRL W*STAT1 ; in #1 & #2 
7E One SCREMBX_S amt peta - 
O37E 60 PRMFLG=40,- 
Back 604 LOGNAM=W°MBNAM 3 make a device to look at 
OOFO"CF OSIE'CF 3C¢ Ba92 eRe atta Tons BN ep CHAN 3 save the channel number 
tt 607 PRILEN=W*PL,- 
: 9¢ 608 PRIBUF =W*PB,- | 
9¢ 3=—6.: 609 SCOLEN=W*SL,=- 
039C 610 COBUF =W ; try the _S 
0388 611 FAIL_CHECK SS$_NORMAL 3 check success | 
01 DD tr PUSHL #SS$_NORMAL | 
138F ‘CF 01 FB O3BA CALLS #1 ‘UEC CHECK 
O37A'CF BO O38F oi¢ MOVW ae bee UNIT+ 
0342°CF 3c3— 61 W°MB_DEV_ Hake ese _UNIT ; the unit # is a variable 
3C6 0s 614 3; and must be filled in 
56 Ose ce DE ih 615 MOVAL W*PB 3; set buffer address 
57 93 6'CF DE O3CB 616 MOVAL uonB Pen CHAR,R7 > set good data address 
5 28 dO 03D 617 MOVL #mB_CHAR-SIZE.R8 ; set the byte count 
00 dD 03D 618 PUSHL @# 3; push expected 10 status 
1287'CF 01 FB D 619 CALLS #1 EB BRE CHECK ; check the resulting buffer 
56 O3EA'CF ODE DA 620 MOVAL W*SB+ 3; set bul fer address 
Bo DD DF 621 PUSHL ; push expected 10 status 
1287'CF 1 FB O3E1 6 ; CALL #1 -W*BUF CHE ; check the secondary buf 
O35E'CF 00 «60 walt FORD 2c ce 6 MOVC #0,W*PB+8, a0. WPL, W*PB+8 ; init the buffers | 
O362'CF 00 O3EA'CF 00 2¢ F2 624 MOVCS #0,W*SB+8,#0,W*SL,W*SB+8 
O3EA'CF FB 
its 
2 § >; test _G form 
FE 59 | 
FE 630 ° NEXT_TEST | 
FE STP13: | 
0004 'CF 09 B? 408 at o15. »W*CURRENT_TC | 
1385'CF ee 49 CALLS #1 WAR AVE | 
OOCS'CF O3SIE'CF 8B 40A 631 MOVW UMBCHAN. ) GENES GET CANS. CHAN ; set the channel # 
| 


sls 


1 
138F *CF 
1287'CF 
2 Sue 

Ager cf 1 

OSSE'CF 00  OS56E'CE 0 
36E* CF 

O362'°CF 00 OSEA" SS 00 
SEA‘ CF 


mwnvooTn"O "NS 
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SGETCHN G 
FAIL. 


=$EP=1986 06:39: 


CHECK MSS No 
PUSHL wit NORMAL 
rte #1 ,W*REG_CHECK 


* 
A A ee CHECK 

#1,W*BUF CHECK 

#0.W*PB+8, TO W*PL,W*PB+8 
#0,W*SB+8,#0,W*SL,W*SB+8 


3 


AX/VMS 
UETPSY. SRE 


0 V04- 
Sar 1S¢S04 MAR; 1 


try .G for 
5 chock tor. success 


—_ Re gee 10 status 
check returned buffer 
check the primary buffer 
push expected I0 status 
for failures 

init the buffers 


re Hf 


SA 
vO: 


—— + 
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“Oo 


x a 4- P ih 
ATP Sy eae igAyessos mars? 2% 13, 


44C .SBTTL GETDEV 
44C af i+ 
44C ; 
44C 78 ; SGETDEV tests 
44C 646 : 
AoC 647 : 
44C 648 :- 
44C 64 NEXT_TEST 
44C 
44C STP14 
0004'CF f DO 044C MOVL #14,W*CURRENT_TC 
0D te ton 3 ° 
17es"et 1 FB 04 Moy ih My SAVE 
gs0r ic O'CF ODE rt 650 nove ye ETDEV ,W°SERV _RAME z set service name 
159° CF FE'CF DE O45F 651 “UM, W* MODE : set the mode 
R286 $26 SCE DEV. H DEVNAR=U"HBNAR, - 
466 65 PRILEN=W*PL,=- 
oe 654 PRIBUF =W*PB,- 
466 655 thet at + Se 
0466 656 SCDBUF =W* ; try the _S 
a etd 657 FAIL. on™ ae a ; chock success 
138F ‘CF 01 FB 8 3 CALS #1 URES C CHECK 
00 OD 0488 658 PUSHL #0 ; push expected I0 status 
1287°CF QF FB OQ48A 659 CALLS #1,W*BUF_CHECK ; check the resulting buffer 
56 O3EA'CF DE 04 F 660 MOVAL we SB+ +8, RE S pet bulfer aedrecs 
00 DD 0494 £661 PUSHL 3; push expected 10 status 
1287°CF O01 FB 0496 66 CALL 1 »W*BUF _CHE 3; check secondary buffer 
O35E'CF 00 eed oF 2c Bere 66 MOVC #0, *W*PB+S, WO: WPL, W*PB+8 ; init the buffers 
0362'CF 00 O3EA'CF 00 2C O4A7 664 MOVCS #0,W*SB+8,#0,W*SL,W*SB+8 
O3EA'CF 048 
48 665 ;+ 
48 666 ; 
48 667 ; test _G form 
048 668 ; 
048 669 ;- 
re 670 NEXT_TEST 
4B STP15 
0004'CF OF DO 048 MOVL #15,W*CURRENT_TC 
00 OD 488 PUSHL # 
1385'CF 01 FB O4BA orth a fan, SAVE 
4BF 671 SGETDEV sti no : try .G for 
4C8 672 FAIL “CHECK SS$_NOR 3 check ‘os euneeee 
o 4C8 PUSHL pees NORMAL 
138F ‘CF 1 FB OQO4CA CALL Us #1 oW*REG_ CHECK 
8 DD O4CF 673 PUSHL #0 ; push expected 10 status 
1287'CF 1 FB 04D1 674 CALLS #1 rt CHECK 3; check the returned buffer 
56 O36E°CF DE 0406 675 MOVAL W*PB+8,R5 S eet the butter eaeress 
00 DD 04DB 076 PUSHL ; set expected 10 status 
1287°CF OF FB O4DD 67 CALLS #1,W*BUF_CHECK : check the primary buffer 


_ 


—--- 
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acro V04- Page 
V04- INPUT AND OUTPU -SEP-1 th Y.S By ae sSAyessot MAR: 1 ° res 
ef e4g .SBTTL INPUT AND OUTPUT TESTS 
4E : 
rt 6 § 3; SINPUT and SOUTPUT tests 
rt é : 3 try SOUTPUT with small transfer and a local EFN 
: 
4E 6 $ :- 
de é NEXT_TEST 
4E STP16: 
0004 ‘CF 18 DO Q4E MOVL #16,W*CURRENT_TC 
0 DD OQO4E PUSHL 
1385'CF 01 «FB OO4E9 CALLS #1 ,W°REG SAVE 
O307°CF  QO67'CF DE ti 3 688 MOVAL ak in W*SERV_RAME 3; set service name 
0159'CF O1FE'CF DE GF 689 MOVAL W*UM,W* MODE ; set the mode 
4FC 690 $Q10_S$ CHANEY W*MBCHA 
4FC 691 FUNC=# 108 READSVBLK, - 
4FC $36 Pl wW*GETBUF +8,- 
Bete 69 P2 =H ; let the output finish 
51D 694 SOUTPUT tot ee 
051D 695 LENGTH=#1,- 
051D 69 BU Fenzu- fest _DATA,= 
51D 69 10SB=W*S 
51D 698 EFN se 3; try output,small, & local EFN 
540 699 FAIL oChEes SS$_NORMA : check for success 
01 DD 054 yan L ass. NORMA 
138F ‘CF 01 FB bee LLS esd »W*REG_ CHECK 
28 O1DB'CF DE 054 700 MOVAL wW* AcE TBUF +8.R6 ; set input address 
5 9250" CF DE 054¢ 701 MOVAL W*TEST_DATA,R7 : set good data address 
5 4 DO «60551 +3870 MOVL #1,R8 ~ : set the byte. count 
0071"cF 00010001 8F 00 0554 70 MOVL  #1a16!SS$ -NORMAL, W*STATI > set dummy s 
00010001 8F DD 055 704 PUSHL Faieises ORMAL 3 set ramon Psy 10° status 
1287'°CF 01 FB 056 705 CALLS #1,W“BUF NECK 3; check the results 
OiDB'CF D4 056 206 €LRL wGETBUFF : init the buffer 
056C 707 ;+ 
056C 708 ; 
056C 709 ; test SINPUT with small transfer and local EFN 
56C 710; 
56C 711 :- 
56C 712 NEXT_TEST 
056C 
056C STP17 
0004 'CF 11 po 28° MOVL #17,W*CURRENT_TC 
DD PUSHL  # 
1385'CF 1 FB 57 CALLS #1,W*REG_ SAVE 
O307"CF OOS3'CF DE 0578 713 MOVAL UA TNPUr w*SERV_NAME : set service name 
57F 714 $Q10_S on CH 
57F 0715 FUNC=#10 WRI feVvBLK, - 
ar rig Pl “TEST_DATA, 
7F 71 P ; put data there to read 
9E os SINPUT CHANW"R CHAN,=- 
9E 71 LENGTH 
9E 720 Bur Fen-urGETBUF +8, - | 
9E 721 tage 
9E 7 § ; try input,small, & local EFN 
SBF 7 FAIL “CHEEK” S$ NORMAL : check for success 
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v04 OUTPU F Vests g-stF P-1 1382 4:29: gf UETPSY. SRE SSaTsssot MAR; 1 . @) 
} PUSH, . $$_NORM 
A te wancee Check 
199010 001 4 PUSHL ib $98 3 set expected 10 status 
Sho 5 FALLS #1 ,W*BUF : ghgck Branstered data 
3 in he buffer 
58 0000 Ob : 4 3 MOVL wg giao 3; set new byte count 
729 : 
f y ; test SOUTPUT with Large transfer and common EFN 
7 § * Saag 
7 NEXT_TEST 
STP18: 
0004'CF 1 MOVL #18,W*CURRENT_TC 
8 stn 
1385'CF 1 CAL Ai W*REG_SAVE 
0307'"CF  0067'CF 734 MOVAL vou Put vt w’ SERV _RAME 3 set service name 
735 SASCEFC_S ; make EFN 6 
7 § $Q10_S “CHAN=W* Chane 
7 FUNC=#10$_READVBLK, 
738 TBUF +8,- 
739 P2 = ; let the SOUTPUT complete 
740 SOUTPUT Peart gn. - 
741 LENGTH= 
248 Burrency" TEST _DATA,= 
74 IOSB=W“*STA 
744 EFN=#65 3; try output, large with common EFN 
745 FAIL otter SS$_NORMAL ; check for success 
8 PUSHL #SS ~, 
138F ‘CF 1 CA § #1,W*RE 
0071'CF 00840001 er 746 MOVL a al6!ss$_ NORMAL OSs rari > set dummy status 
aire" F 74 PUSHL aie SssN ; + expected I0 status 
1287'CF 01 748 CALL a W*BUF CH NECK eck the buffer 
0084 8F 00 shall SPO 749 MOVC #0, Hee TBUF se. 40,4132, W*GETBUF+8° ‘ 743 the buffer 
fay i 
738 3 test SINPUT with Large transfer and common EFN 
754 :- 
755 NEXT_TEST 
STP19 
0004 'CF 13 MOVL #19,W*CURRENT_TC 
69 er L 
1385'CF 1 CALLS # W*REG_ SAVE 
O307'"CF O0053°CF 736 MOVAL W*INPUT, w*SeERV NAME 3 set service name 
7 $010_S CHANSU"ABCH 
758 FUNC=#1O WRI FEVBLK, - 
759 ST_ 
760 P2 =#1 ; put data out to read 
761 SINPUT Pieetied ry - 
166 LENGT 
7 BU FERsu-cefaUF 8, - 
764 10SB=W“STAT,= : 
765 EFN=#65 ; try input, large with common EFN 
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TES SEP=-1984 04:29: UETPSY.SRCISATSSSO1.MAR; 1 
red | 766 FAIL othe ce As et ; check for success 
A 
F 
SEA 
3 


a rh i ene c CHECK 

eer a161ssé NORMAL : oe papectes 10 status 
ibe ny CHEC eck transfered data 

move id, eGE BUF SS, #0,#132,W°GETBUF+8 ; a4 the buffer 


ne) 
Aan 
oon 


01 


58 01 
OO04'CF 14 
0307" tr > See cr "CF 


01 
138F'CF 8601 


QO04'CF 15 
9 

1385°CF 1 
0105'CF 

01 

138F°CF 8601 
10001 8F 
1287°CF 1 
01DB' CF 

58 2 


0004 ‘CF 18 


dO 
DD 


7 
? 

75 
? 

7? 

7 

77 
77 
77 
77 
77 
77 
77 
77 
7? 
77 
77 


4 
D 
6 
C 
) 


K 4 
STEM SERVICE TESTS (SUCC S.C.) i os ae 9 80:36 744 7 
984 04:29:37 


AX/VMS Macro V04- 


0 
=SEP-1 UETPSY.SRCJSATSSSO1.MAR; 1 


at : -SBTTL QI10 TESTS 
73: 
oe : $Q10 tests 
ore 3 test local EFN = 3, IOS_WRITEVBLK, _S, 1 byte transfer 
178 :- 
77 MOVL #1,R8 3 set byt t 
780 NEXT_TEST Sie epee 
STP20 
MOVL i »W*CURRENT_TC 
PUSHIL # 
CALLS W*REG_SAVE 
781 MOVAL valid y°s SERV V_NAME ; set service name 
18 $Q10_S EFN =4 
7 CHAN=W*MBC HAN 
784 FUNC=#108 WRI feVvBLK, - 
785 10SB=W*STAT, 
7 : Pl =W*TEST “DATA, ~ 
4 P2 =f : try _S local be = 1 writevbik 
788 FAIL_CHECK SS$_NORMAL ; check success 
ot #58, NORMAL CHECK 
750 5 
733 : test local EFN = 31, IO$_READVBLK, _G, 1 byte transfer 
793 :- 
79% NEXT_TEST 
STP21 
MOVL eet oW*CURRENT_TC 
PUSHL 
CALLS #1,W*REG SAVE 
795 CLRL u*aiGpeaio$ ASTABR ; disable AST's 
79 $Q10_G wW*Ql0P i; try .G local be = 1 readvblk 
79 FAIL_CHECK SS$_ ; check success 
PUSHL & RMA 
CALLS _#1,W*REG_CHECK 
79 SWAITFR_S EFN= ; wait for the writevblk 
79 SWAITFR_S EFN=#31 ; wait for the readvblk 
PUSHL 1816!SS$_NORMAL 3; set expected 10 status 
1 CALLS #1,W*BUF CHECK ; check the results 
: CLRL 30s W*GETBUFF : init the buffer 
B27 ad MOVL #2,R8 ; set byte count 
5; 
0? 3 test common EFN = 65, IOS_READLBLK, _S, 2 byte transfer 
i NEXT_TEST 
STP22: 
MOVL #22 ,W*CURRENT TC 
PUSHL & 


4 
1 - SATS SYSTEM SERVICE TESTS «suck $.C.) 16-SEP-1984 00:44: AX/VMS ro V04- 
Q10 T tests oe ets 9 80: :29: 3 UETPSY.S See ayessos .marst 
1385'CF 01 FB 444 , $010 $ ErN=ses = #1 ,W*REG_SAVE 
N=# 
784 9 -" CHAN W "ABCA 
784 1 FUNC=#10 READLBLK, - 
784 1 1OSB=W“STAT, 
tee ORS bY =usGE TBF +8, EFN READLB 
3 try common LK 
a 1" 16 FAIL ee $5$_no Ag 3 check success : 
138F "CF 8 FB 07 CALLS is w*ReG ¢ CHECK 
re) ORB 
A 18 ; test common EFN = 92, IOS_WRITELBLK, _G, 2 byte transfer 
78 A :- 
A oe2 NEXT_TEST 
78 STP23 
0004 'CF i? 44 re ao 433. »W*CURRENT_TC 
1385° 01 FB 787 the #1, vue SAVE 
OOF SCF 0000005C of b0 ree 823 MOVL #92,W*Q10P+Q10$_EFN 3 set EFN 
OOFD'C 0 dO 7C¢ 4 MOVL #108 aH ge O*alop+a10$_ FUNC ; set FUNC 
O10D'CF O250°CF DE O7CA 5 MOVAL WTEST_DATA,W* d19P+0 Q10$_P1~ : set transfer address 
0111 02 00 0701 5 #2 vaToPsalos. : set byte co 
0706 +8 $010_G w*dlo 3 try common EFN writelblk 
O7DF 828 FAIL “Ene $S$_NO 3; check success 
01 0D Bees PUSHL MOSSSeN NORMA 
138F 'CF 01 FB 7E1 CALLS #1 »W*REG_ CHECK 
ree HH SWAITFR_S EFN=#65 3 wait for readlblk 
7F 830 SWAITFR_-S EFN=#92 3 wait for writlblk 
00020001 of DD 0800 831 PUSHL ¢ a16'!Ss$ eres, 3 set expected IO status 
1287'CF FB 0806 HE CALLS w*BUF 35" 3 check transfer 
Sipe cr D4 0808 83 CLRL o GETBUFFE : init the buffer 
58 00000084 8F DO O80F 834 MOVL #132,R 3; set byte count 
ORs 838 
baie $ : test AST, IOS_WRITEPBLK, _S, 132 byte transfer 
B16 839 | 
OBie 840 ° NEXT_TEST 
816 STP24 
0004 'CF is BS 18 at 8 Ses CURRENT 
1385'°CF 01 FB 1 CALLS #1,W*REG_SAVE 
41 $Q10_S CHAN=Y W“MBCHAN, - 
0 4¢ FUNC=#10 WRITEPBLK,- 
“ 10SB=W“STAT,-=- 
44 ASTADR=U*AST1,- 
45 ASTPRM=#1,- 
46 Pi “ur TEST_DATA,~ 
4 Ps #13 ; try AST writepblk 
50 oD 48 ‘3 PUSHL 3; save the Q10 status 
4D 4 SSETAST_S ENBFLG=#0 : let gis et checked 
50 8ED0 28 29 POPL RO ; reset the Q10 status 
1 ; before the AST's start 


————____-——_—_ 


m 4 
SATSSS01 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04- Pa 25 
vee ti Q10 tests oe ath 9:39:35 De Te ey. eRe TRAY SSSOy MARS 1 - (2) | 
858 : to fly! | 
FAIL_CHECK SS$_NORMAL ; check success 
3 OD PUSHL #SS$_NORMAL 
138F "CF 1 FB 5) CALLS #1,W"REG_CHECK 
oo Bes 
28 : test AST, IOS_READPBLK, _G, byte count 132 
6 58 :- 
2 HE NEXT_TEST | 
6 STP25: 
0004 'CF 8 + ? mit oe> OE 
1385'CF oi F 6 CALLS #1,W*REG_ SAVE 
OOFD'CF OC oD B6¢ 860 MOVL #10$_READPBLK,W*QIOP+QI0$_FUNC ; set FUNC 
0105'CF OBFO'CF D 871 61 MOVAL W*AST2,W*QIOP+Q10$_ ASTADR ; set ASTADR 
, 02 0 0878 B6¢ MOVL #2,W*Q{OP+Q10$ ASTPRM t set ASTPRM 
010D"CF 01DB' CF ) 8 7D se MOVAL wn GE TBUE +8 W*QTOP+Q10$_P1 ; set read buffer adr 
O111°CF 00000084 8F DO 0884 864 MOVL #132,W*Q10P+010$_P2 : set byte count 
88D 865 $010.6 walop S try AST delivery _G 
896 866 FAIL CHECK SS$_NORMAL ; check success 
01 OD $4 PUSHL #SS$_NORMAL 
138F 'CF 01 FB 089 CALLS’ #1 W*™REG_CHECK 
089D 867 SSETAST_S ENBFLG=Af ; let all heck break loose 
pane 868 SWAITFR_S aeeerre ; let the dust settle 
00840001 8F OD 88 869 PUSHL #152816!SS$_NORMAL 3 set expected 10 status 
1287°CF 01 FB 0889 #870 CALL #1,W*BU K ; check transfer 
0084 8F 00 shall FO 2 tra: 871 MOVC #0,W*GETBUF +8, #0,4132,W°GETBUF+8 ; init the buffer 
0046 31 O8CA are BRW NEXT ; skip over AST routines 
ee 
O8CD 875 : service writelblk AST 
08CD 378 3 
ion 
001C tts Bre 5 » WORD “M<R2,R3,R4> 
th 880 NEXT_TEST 
+} STP26 
0004 "CF iA + +44 ao Set CEN Te 
1385'CF of F 8 D6 CALLS #1,W*REG_SAVE 
01 O4 AC OD DB sé 81 CMPL 4(AP) #1 ; right AST parameter? 
E 13 OF Ht BEQL 10$ ; br if yes 
04 AC OD E1 PUSHL 4(AP) : push received 
01 OD E4 4 PUSHL #1 3; push expected 
0193'CF OF E6 5 PUSHAL W*ASTEXP 3 push string variable 
13D1'cF §6—603—t—s«éF2B 4 § 108 CALLS #3,W*PRINT_FAIL : print the failure 
04 OBEF ’ oer ee > return 
f .f 
F 91 : test the readlblk AST 
F 3 3 
F 935 :- 


HECK SS$_NORMAL 
PUSHL #sss NORMAL 
CALLS #1,W"REG_CHECK 
SSETAST_S ENBFLG=#1 let it fly 
BRw NEXT1 skip over AST routine 


1 DD 
138F *CF it FB | 


0045 31 


; service READATIN AST 


0000 


WINAIIRoNoTPoNnene Nm vurnrn— 


Fw - OO0ONOuM 


wooownownoowowvovono 


.WORD 0 
NEXT_TEST 
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SATSSS01 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04- Page SAT 
v04- Q10 TESTS ae ae 4 90:53:35 UE TEST. CRE TSAYSSSOS MARS 1 . ¢) v4 
F 94 AST2: 
001C F 95 -WORD “M<R2,R3,R4> 
96 NEXT_TEST 
F STP27: 
0004'CF 1B «D0 F MOVL oa! A ORRENT TE 
DD F PUS 8 
1385'CF 1 FB F9 CALLS #1,W*REG_SAVE 
02 O04 AC ODI F 97 CMPL 4(AP) ,#2 ; right AST parameter? 
OE 13 0 38 BEQL 10$ : br if yes 
04 AS DD 09 9 PUSHL 4(AP) 3 push received 
0 DD 0907 0 PUSHL #2 3; push expected 
O193'CF DF 0909 901 PUSHAL W*ASTEXP ; push string variable 
1301'CF 03 FB ay 2 ¢ 108 CALLS #3,W*PRINT_FAIL 3 print the error 
04 091 904 RET 3; return 
4 905 ;+ 
91 308 3 
091 907 ; test 1O0$_SETMODE, _S, READATIN 
91 908 : 
091 909 ;:- 
091 910 NEXT 
9 911 NEXT_TEST 
091 STP28 
0004'CF 1c dO 91 MOVL St ee 
00 dD O91 PUSHL # 
1385'CF 01 FB 091 CALLS #1,W*REG_SAVE 
091 31g $Q10_S CHAN=W*MBCHAN 
4 91 
91 914 o 
O91F 915 P1 =W*AST3,- 
091 aig P2 =#3,- 
91 91 P3 =#PSL$C_USER > try _S SETMODE 
94 918 FAIL_CHECK SS$_NORMAL ; check success 
01 DD 094 PUSHL #SS$_NORMAL 
138F °CF 01 FB 094 CALLS #1,W*REG_CHECK 
8 4 919 SWAITFR_S EFN=#2 ; let it finish 
O105'CF D4 5 920 CLRL W*Q10P+Q10$_ASTADR ; disable AST's for this one 
0109'CF D4 095 921 CLRL W*Q10P+Q10$_ASTPRM 
8 5 9 ¢ SSETAST_S ENBFLG=40 ; hold back on the reins 
6 9 $Q10_G wW*QI0P ; force the READATIN AST 
924 FAIL_C 3; check success 
7 
7 
7 
7 
7 
7 
7 
: 


WOOOOOOOOVOOVOOOOOOOODS 


COOCoOooooooo 


FUNC=A10$, SETAODE!! IOSH_READATTN,~ 
EFN =A 
| 
} 
| 


SATSSSO1 = 
vous000 Q10 
OOO4'CF 1 dO 

DD 

bi Bad EEL | 

04 AC » 

04 A dD 

DD 

Q193'"CF ODF 

13o1'cF O03 FB 


OOFD'CF 30 00 


01 oD 

138F'CF O01 FB 

04 

OOO4'CF 1E€ 00 

00 DD 

1385'CF_ O01 FB 

00000123 8F D0 

OOFD'CF 

O10D'CF OASA'CF D 
O1l1'CF 04 «OOD 

O115'CF O3 00 


3 DD 
138F *CF 8 
ete” is 30 = 00 
010D'CF 250°CF ODE 
Hy DD 

138F ‘CF 1 FB 

o04c «531 

0000 


ooooooorcoe 
OOOOCOCWDMO@oO -™ 
— = MOOW’W" 9 Oo — 


wOOoo0oooo0v0no 


ooowonononononun0n7 
OOOO0O00000 


wooonowvovono 
AQUmnq.wununnw 
OOONOUSE 


OOP> PPP \Y YP VIM OVNI NP MW NO OCP OD OL LLL LLL EEE 


AANA IAIN RIPPIN 4? 2 2 0 FFF HMM MI SO FGOHOOOOOOOOOOOO 
_ 


>>>>>r>rrrrrrrrrrr Pr OOooooovovnnd 


STEM SERVICE TESTS suc s° S.C.) <* eh 9 90:8 $33! 


MOVL  #29,W*CURRENT_TC 
PUSHL 
CALLS _#1,W*REG_SAVE 
CMPL GC AP), 
BEQL $ 
PUSHL 4 (AP) 
PUSHL 
PUSHAL 


W*ASTEXP 
ALLS #3,W*PRINT_FAIL 
10$: 
MOVL 
paid. G 
AIL-CHECK SS$_N 
PUSHL Neste NORMAL 
CALLS #1,W*™REG_CHECK 
SUALTFRS EFN=#92 


NEXT_TEST 
STP30 
Rov #30. W*CURRENT_TC 
CAL'S. #1, W*REG_ SAVE 
MOVL #108 S SETMODE! TOS WRTATTN,= 
w*Q10P+ 


MOVL  #4,W*QfOP+Ql0$ P 
gov ; #PSLSC C_USER,W*O10P+Q10$_P3 


FAIL- “twee S$. NORM 
PUSHL Wsss- NORMAL 
CALLS ot W*REG_ CHECK 


SSETAST_ 
MOVL 
MOVAL 


-> LG=#0 

z O$ WRITEVBLK ,QIOP+Q10$_FUNC 
$Q10.G W 

C 

Pp 

C 

am) 


EST _DATA, W*QI0P+Q10$_P1 


S$_NOR 

L PSSScN 
Ss #i went. CHECK 
BrLG=al 


FAIL-CHE 


T 
Qlo 
Ss 
L 
o_o See 


10P 
S 
H 
L 
N 
T 


service WRTATTN AST 


Asta: 
-WORD 0 
NEXT_TEST 


“a | psa eat: 


Sete te te te te 


/VMS Macro V04- Pp 7 SA 
They. eaeigaressoy mars? 2% 25) vo 


correct AST? 
br if OK 

push receeived 
push expected 


push the string variable 
print the failure 


set the new mode 
and eat the read pending 
check success 


wait for it to digest. 
carry on 


set new P 

set new P 

set new P 

try _G setmode 
check success 


wait for it to complete 
hold back on the reins 
set new function 


set new P1 
kick off WRTATIN AST 
check success 


let it fl 


set new Sync ion 
Y | 
skip AST routine | 

| 


pliciisincdbiidentaae - 
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§-§ § $038: 35 YUETPSY.saeis JSATS oe580. MAR; 1 ” res vg 


SATSS$01 
v04- 


> 
44 


“oO ogo snvovlo°o-Oo™"CO9O 
oo mo Oro OoWwWoo 
CGDOOOCOCOCOCOCOCOCGOOOOOOOOOOOOOCOoOO MN 


© 
——s 
ow 


OFD'CF 31 


Q #10$_READVBLK W°Q10P+Q10$_FUN 
010D'CF 1DB'CF 1 E L 108. UNC 


MOVL 
MOVAL  W*GETBUF+8, w*d10P+Q10$_P 


$010_ 
FAIL-CHECK SS$_NORMAL 
PUSHL ~ #SS$ NORMA 
CALLS wi REG_ CHECK 
SUAITFR.S EFN=#9e 


| 
; set new function code | 
; set new read address 
; eat the write pending 
; check for success 


STP31: 
QO04'CF IF MOVL oz! olf CURRENT. TC 
PUSHL 
sa ° Baad CALLS #1,W*REG_SAVE 
4 04 AC 77 CMPL 4 (AP) #4 ; is it . right one? 
7 BEQL ; br if of 
04 AC 7 PUSHL 4 (AP) 3; save veneteed 
: PUSHL ; save expected 
0193 ff 1 PUSHAL W*ASTEXP 3 save string variable 
1301'CF 3 § 108 CALLS #3,W*PRINT_FAIL 3; print the error 
3 4 
2 5 
389 


o 
Sete tee 


1 
138F ‘CF 8} 
and wait for it to digest 
bail out 


Oo 
= 


> 


; test IOS_SETCHAR, _S 


oO ©o00cD 
—Ooe 


: This function is not tested because of the lack of a device that is 
; allocatable and char. setable on the minimum configuration. 
N 


EXT2: 


a) 
SATSSS01 = SATS SYSTEM SERVICE TESTS (SuCC S.C.) 1 4 aad 4 7 VAX/VMS Macro v04-00 Page 
$045000 Q10 TESTS or Seeafbbe besseste LOnthee cae scayecsos man:1 '2%* 28, 
A 1000 ;+ 
A 1001 ; 
. ! ¢ ; test IOS_WRITEOF, _G 
A 1004 ;- 
" : 1005 NEXT_TEST 
A8&6 STP32 
0004'CF 0 dO A86 MOVL #32,W*CURRENT_TC 
0 ODD OA8B PUSHL ° 
1385'CF 01 FB OA CALLS »W*REG_SAVE 
A 1 6 $Q10_S CHAN=W*M mB CHA 
A9e 1 FUNC=#10 “WRI TEOF, - 
A92 (1 38 EFN =#10 ~ ; issue the WRITEOF 
AAF 1 FAIL sane SS$_NORMAL 3; check success 
SI DD AAF PUSHL #SS$_N 
138F ‘CF 1 FB QOAB1 CALLS #1 Ww REG. Ch CK 
OOFO'CF O3SIE'CF 3C OAB6 1919 MOVZWL w meCHAN W*QI0P+010$_CHA 3 reset the channel 
OOFD'CF 31 DO OABD 1011 MOVL #108, READVBLK U-al0RTBi08, FUNC ; set for the read 
O10D'CF O1DB'CF ODE ate a MOVAL u*dloPea 3 set dummy address 
Q0000111'EF 62 dO ne 1918 nOvE #2,019P Bpeaios. i get any byte count 
; issue a read 
AD9 1818 FAIL_CHECK SS$_NORM 3; check success 
01 0D +4 PUSHL OSSScN NORM 
138F 'CF 01 FB ane CA rts #1 »W*REG_ CHECK 
QAE 1916 eo _S_EFN=#92 ; wait for completion 
00000870 8F OO71'CF D1 OAED 101 CMPL “W*STAT1,#SS$_ENDOFFILE 3 right status code? 
greet op BME 188 BER, 8 an ae 
3; push receive 
00000870 8F DD a 10 0 PUSHL ass, ENDOF FILE 3 cush expected 
Q0182°CF OF 8 1021 PUSHAL W*“IOEXP 3 push oer ine variable 
LL oW NT_FAIL ; print the failure 
13D1°CF 03 FB 080 10 CALLS #3,W*PRINT_FAI i i 
B88 145 198 
0B0B 1025 ; 
pene 10 $ ; test IO$_ACCESS, _G 
0B0B 1028 ; Stert best ing disk files. We first want to find the FID of CSYSTEST) 
0B 1029 ; which may be in a top level system directory. Save that FID as the dio 
; for further testing. 
3 : ? for furt testi 
0B 1 ¢ 3° 
oe 1 NEXT_TEST 
STP33 
0004 'CF 1 dO MOVL o35- oW*CURRENT_TC 
0 oD 1 PUSHL 
1385'CF 01 FB 1 CALLS #1 ,W*REG_ SAVE 
1 1034 SASSIGN_S USI SKU CHAN1~ 3 assign the disk channel 
1035 STRNLOG_S LOGNAM ; W*TOPSYS,- ; See if there is... 
1 § RSLLEN = W*TOPSYS_DIR,- 3 «2-8 top level... 
1 RSLBUF = W*TOPSYS_DIR,- 3 «eeSsystem directory... 
1 8 DSBMSK = #6 3 -..defined system-wide 
50 0629 8F 1 a ! i on #SS$_NOTRAN,RO ; If there's no translation... 
O4E4'CF e3 rf 1041 TSTW W*TOPSYS_DIR ; ...0r the trans is null. 
6C 4C 1042 BEQL 10$ > «..we have no top level dirs 


5 
SATSSSO1 - SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-1984 00:44: AX/VMS Macro V04- Page 
SOL S88e Q10 TESTS green 4 04:29: ig UETPSY.SRC eae ay eesoy. MAR; 1 ° 
O7C 8F 4 1043 PUSHR on menge R3,R4,R5,R6> ; sy these over MOVC, 
chaste f B 1044 aie 8 Benet’ R rae top fe dir name yg en 
O4CC' 26 4C4'CF 1045 mMOVC T DIR SEMI ,W*DOT _DIR_ SEMI+8,- : Form a t le spec for... 
4EC'CH 1 46 Topsy sure (Rb) j ...the dir name... 
O4ES'CF ose be AO QB61 104 ADDW2 BIR ~3EnI get DIR 
007¢ 8F BA 0B68 1 48 POPR HMCR2, RS R30R : ttean up after MOVC, etc. 
6C 104 $Q10W_S E ; Get the top level... 
6C 1050 CHAN ms A 3 «e-System Girectery FID 
6C 1051 FUNC=#108 ACCESS, = 
as § 1OSB=W w*STAT 
6c 1 Pi =W*FIBD bs 
6c 1 34 P =#T P55 SSR, - 
34 1055 =#ATR 
0B97 1056 FAIL ~cweck $S$_ NORM ; Check success of call... 
1 OD 9a okt reese NORMA 
138F ‘CF 1 FB 99 ALLS #1,W™REG_ CHECK 
0069'CF ee: 9 1937 CMPL bse “NORMAL, w*STAT i se .and its results 
, ae AS 1058 BNEQ 20$ © a if error occurred 
3¢ Be AS 1059 PUSHR #* M<R2 R3,R4,R ave these over MOVC, etc. 
O470'CF O46A'CE 06 g OBA? 1060 MOVC3 #6, We Fiber issu FID wer 1B+F 1BSW_ vio’ Get the new DID... 
O46A'CF 06 00 00 8F 9 C pear 1061 MOVC #0,# #6 w°F 18+F 1es FID ; .. sand reset the FID 
C 6BA a4 1306 108 POPR AP Dy Ty R4LR ; Restore after MOVC, etc. 
0493'CF O4AF ‘CF DE OBBA 1064 MOVAL veoesitee DIR, W*ATR#4 ; Point to SYSTEST dir name 
OBC1 1065 $Q10_S EFN=#16,- 
0BC1 1066 CHAN=W* CHANT 
OBC1 106 FUNC=#10$_ACCESS,- 
OBC? 1068 10SB=W*STAT,- 
OBC1 1069 Pl =W*FIBDES,- 
0BC1 1070 < ae essyatest _DIR,=- 
0BC1 1071 7 ; access file to get DID 
OBEC 1072 FAIL_CHECK Ss$.N 3 check success 
01 OD feet PUSHL MORSSCN NORMA 
138F 'CF 01 FB EE CAL Us #1 »W*REG_ CHECK 
OBF3 1073 ere _S EF N=# 16 ; wait for completion 
01 0069'CF D1 OBFC 1074 CMPL “W*STAT, #SS$_NORMAL ; check IO status 
OF 13 pe 1 1075 BEQL 30$ : br if no error 
C 1 6 20$: 
O069'CF DD OC 107 PUSHL W*STAT : push recieved 
1 Od OC 1 4 PUSHL #SS$ ~ alee 3; push expected 
0182°CF DF QCO9 107 PUSHAL W* ; push otring variable 
13D1'°CF O03 FB ocig 1} ? 30s CALLS) #3, OE PRINT FAIL 3 print the failure 
0470'CF O46A'CF 06 28 Bele i ¢ : MOVC3 #6,W*FIB+FIBSW_FID,W*FIB+FIBSW_DID ; get the new DID 
CIA 1084 ; 
zie : 5 ; test IO$_CREATE, _S 
C1A 1 5 ; After ensuring that we have SYSPRV, set up access control and extension 
hy : 3 ; control. Set up a test file, superseding any old one which may be present. 
C1A 1090 ;- 
C1A 1091 NEXT_TEST 
C1A 
C1A STP34 
0004 'CF $6 D0 C1A MOVL S74 MO CURRENT VE 
0 OD C1F PUSHL # 


1 
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SATSS501 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 :47 \VAX/VMS Macro Vv04 rs Page 31 | 
V04 Q10 TESTS -SEP-1984 9:39: 7 (CUETPSY.SRC aSaTSSs MAR; 1 (3). 
1385'CF 6001 «FB O0C21 fas #1 ,W°REG_ SAVE | 
C § 1 3 MODE TO KRM NOREGS ; kernal mode to access PHD 
‘a 090000" 9F pO OC 1 | MOVL aa RG 3; get process header address 
OOS1°CF 69 DE OC4A 1094 MOVAL Pubs PRIVASK<R9) .W*PRIVMASK ; get riv mask address 
C4F 1095 MODE FROM,T : get back to user mode 
C3 1 96 PRIV ADD, SYSPRV : add SYSPRV rivs | 
GArCE dD4 0C70 109 CLRL «so WF £B+F IBSW_FID : clear out the FiD 
ope er BG C7 1 38 CLRW FIB+F IBSW FID_RVN 
0466'CF 000005 DO OC78 109 MOVL FIBSM_WRITE!F IBSM_NOREAD!- 
C81 1100 F IBSM_NOWRITE W*FTB+F 1BSL WACCTL ; set new ACCTL 
O47C'CF 0085 8F BO OC81 1101 MOVW #FIBSM"EXTEND!FIBSM_ALCON!= 
C : 11 § FIBSM_FILCON, W*F IBTF IBSW SUNCHL set new EXCTL 
O47A'CF 0400 8F BO OC 11 MOVW A SUPERSEDE ,W°F 1B+F 1B ; on top of file if there 
O47E'CF OF DO OCBF 1104 MOVL 4#15,W*FIB+FIBSL_EXSZ : abt extend size to 15 
00 OD O0C94 1105 PUSHL #0 ; push a dummy parameter 
1385'CF O1 FB ee 1 $ cat FEN SAR ; save a register snapshot 
+ 4 — 
C9B 1108 ~" CHAN = W*CHAN 
C98 1109 FUNC = #10$ ACREATE! 108M. CREATE! 1OSM_ACCESS,- 
0c9B 1110 10SB = W*STAT 
0c98 1111 Pi = uF [BES - 
C 1146 P2 = ae ; create the file 
QOCC2 111 FAIL =CHECK SS$_NOR ; check for success 
01 DD OCC PUSHL osese NORMAL 
138F CF 01 FB bees CALLS #1,W*"REG_CHECK 
cco «1114 SWAITFR_S EF NSA 6 ; wait until done 
OF seat # Beds 1132 are “W*STAT+4 815 3 ye extended? 
OO6D'CF ODD OCD9 149 PUSHL 7 bli 3; push paatived 
OF ODD OCDD 1118 PUSHL #1 3 push expected 
OIAS'CF ODF OCDF 1119 PUSHAL W*“DISALL 3 push atring variable 
13D1'CF 03 FB Es 1 y 20$ CALLS #3,W*PRINT_FAIL ; print the failure 
01 OO069°CF D1 OCE8 11 CMPL W*STAT, #SS$_NORMAL ; check the 10 status 
OF 13 OQOCED 11 BEQL 25$ ; br if no errors 
0069'CF DD OCEF 1124 PUSHL W*STAT 3; push recieved 
1 OD OCF3 1125 PUSHL #SS$_NORMAL 3; push expected 
0182°CF OF axe 11 $ PUSHAL W*IOEXP 3 push orn variable 
13D1°CF 03 FB CF9 «(11 CALLS #3,W*PRINT_FAIL ; print the failure 
CFE 1128 25$: 
cE 4180 
fe 1 1 ; test IOS_MODIFY, _S 
CFE 11 5 : Specify that our test file need not be contiguous | and extend it by a 
CFE 1134 ; amount equal to its original size. Check that we've successfully noditied 
CFE 11355 ; the file. 
tae 
re 1138 NEXT_TEST | 
CFE STP35: A | 
0004 'CF 3 dO CF ao 1H #35. W*CURRENT_TC 
13a5'ce 01 FB. OOD ; 
04 ae 4 AA QDOA 1139 BICW2 CALS rfagcomeet Maat JEXCTL ; remove contiquous mark 
482°CF D& ODOF 1140 CLRL W*FIB+FIB : allow the modify to work 
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FUN" OOWONOUnsS 


10$: 


208: 


: Check 


RESSATSSSOT LAR: 1 


SQIO_S EFN=#7 ~ 
CHAN=W"CHAN1,= 


#Fl NAME ; try to truncate with IOS_MODIFY 
FAIL ACHE ss8_ NORM y v with 10$_moDI 


PSSS°N 

f ALLS #1 UrReGe CHECK 
SWAITFR_S EFN=#7 ; wait for completion 
CMPL = “W*STAT,#SS$_NORMAL ; check 10 status 
BEQL 10$ ; br if no error 
PUSHL W*STA ; push recieved 
PUSHL #SS$ NORMAL 3 push expected 
PUSHAL W*IOEXP } push otring variable 
CALLS #3,W*PRINT_FAIL 3; print the failure 


Bisw2 af 188H_F FILCON,W*FIB+FIBSW_EXCTL ; set a value to be over written 
> FANGS CHANT - 

FUNC=# 108 ACCESS,- 

10SB=W*STAT,- 


check for success 


P2 =#Fl 
FAIL eae $$$. NORMAL 
PUSHL &$ 


NORMA 
CALLS #1 UFREG. CHECK 

SWAITFR -}, EFN=# ; wait for completion 

BB #FIBSM_FILCON,W*F IB+F IBSW_EXCTL, 50$ : if cleared then OK 


PUSHAL WeFIEN oTMO : push string variable 
CALLS) #1,W*PRINT_FAIL 3 print the failure 


that we may read and write the file with IOS_WRITEVBLK & IO$_READVBLK. 
NEXT_TEST 


MOVL #36,W*CURRENT_TC 


HL 
CALLS #1,W*REG_SAVE 
TAT ; clean the 10 status blk 
S EFN =#9,- 
CHAN=W* CHA 
FUNC=#10$ *URITEVBLK, - 
10SB= 


Pl =H138,-" DATA, ° 


P 
; write 132 bytes to VBN 1 
FAIL. CWEEK $38 NORMA 3; check success 
PUSHL &#SS ss NORMA 
CALL § # UREG. CHECK 
SWAITFR_S EFN=#9 ; wait here til done 
$Q10_S “EFN =#10,- 
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Q10 TESTS Breer TSBs BOiS5i3 FOETESS Sacre VOCs 80 uansy P29 3, 
OF 1187 CHAN=W*CH 
DFO 11 : FUNC=#108 §READVBLK, 
DFe 11 10SB=W 
BFS 1194 PS a 
DF 1136 #1 ; read 132 bytes from VBN 1 
E1 119 FAIL. wee $$$ on 3; check success 
4 DD 0E1 PUSHL ass, NORMAL 
138F ‘CF 1 FB QE1 aS pone: CHECK 
E 6 1194 SWAITFR_S EFN =#16 ; wait here til done 
28 1 oe DE OE 1195 MOVAL “WeGe BUF +8. ; set buffer address 
: "CF DE E j 1196 MOVAL arare : set good data address 
58 000 4 8F 0D E 119 MOVL ; set Byte count 
00840001 8F DD OE3A 1138 PUSHL #1 x NORMAL ; push expected status return 
11CB'CF 01 FB OEF40 119 CALLS #1,W*DISK_BOF_CHECK 3; check the transfer 
ag ge 
ed 1 é : test IOS_DEACCESS, _S 
ae 
a8 1205 ° NEXT_TEST 
E45 STP37: 
0004 'CF 33 +4 pee; ot #57 .U°CURRENT TC 
1385'CF of FB deat a #1,W*REG_SAVE 
he Corse L-com en te 
18 00 sitll OY * ec OE55 1208 MOovVCcS #0. UGE TBUF #0, #F IBSL_LOC_ADDR- 
Oe 1209 ~FIBSL_WCC,W*F IB+F IBSL_WCC ; clear unneeded stuff in FIB 
00 DD OE63S 1210 PUSHL #0 3 push a dummy parameter 
1385'CF 01 #=FB QOE6S5 1211 CALLS #1, genes. SAVE 3 Save a snapshot of regs 
Ofea 1518 sat0 ns EH AN=U*CHA 
Been : i FUNC=#1O8 DEACCESS, - 
SECA 1216 PS sunt ihe 
OE6A 1217 P1 *r 16DES 3; try _S deaccess 
£91 1218 FAIL_CHECK $s$. NORM 3 check success 
01 DD E91 PUSHL pees NORM, 
138F "CF 01 FB ah} CALLS #1 UFREG. CHECK 
E98 1219 SWAITFR -5 EFN=#5 ; wait for completion 
0071'°CF 8} o iy ! 9 sree #SS$_NORMAL ,W*STAT1 : gnect ic 10 status 
0071'CF oD EAS 1 ‘ PUSHL W*STATI > push recieved 
DD OEAC 1 USHL Uses NORMAL 3; push expecte 
0182°CF DF OEAE 1224 PUSHAL W*IOEXP 3 push string © athe 
1301°CF O03 #£FB eRe ! 5 108: CALLS #3,W*PRINT_FAIL 3: print the failure 
ae 
EB? 1 : > test IO$_DELETE, _S 
fey 153) 
EB? 1232 ° NEXT_TEST 
EB7 


5 
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$Ous808 Q10 tests g7 ee 1382 8:5 3:35 UETPSY.S Sees Sayeesos maRs1 . #4) 
EB STP38: 
0004'CF dO EB) MOVL #38,W*CURRENT_TC 
DD QEBC PUSHL # 
all FB OEB cath #1 ,W*REG_SAVE 
O69'CF 04 gt 1233 gLAt w* H AT ; init 10 status 
C7? «(1234 QI0_S_ EFN =#11,- 
EC? 1235 CHAN=W*CHA 
ec? 1 § Punced 10s ADECETE! 108M. DELETE,=- 
EC? 1 10SB=W*STAT,=- 
EC? 1 : Pi =u*F IBDES - 
EC? 1 P2 =#FIL ENAME ; delete the file 
EEE 1240 FAIL =CHECK $$$ NORM 3; check for success 
4 DD OEE PUSHL pest NORMA 
138F 'CF 1 FB EF CAL i: mf UTREG. CHECK 
EFS 1241 SWAITFR_S § EFN=# ; wait for completion 
0069"CF 01 DI OEFE 1 tg CMPL #ss8_ NORMAL ,W“STAT ; check 10 status 
F 13 OF 124 BEQL 10$ ; br if OK 
O069'CF DD OF 1244 PUSHL W*STAT 3; push soe cered 
1 DD OF 9 1245 USHL #SS$_NORMAL 3 oe expect 
0182'°CF ODF OFOB 1246 PUSHAL W*IOEXP 3; push string: S stehia 
13D1'°CF 03 FB Org ! rt 108 CALLS #3,W*PRINT_FAIL 3; print the failure 
F14 1249 SDASSGN_S CHAN=W*CHAN1 ; deassign the disk 


} 
ha 
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-SBTTL QIOW TESTS 


; $Q10W tests | 
The $Q10 tests check most of the functional ity of the Q10 services. 
The purpose of these tests is to check the differences between 
$Q10 and $Q10wW. 


test _S and local EFN 


PAAR ANIIN 
WO ODODNOAUS Wir 
a 


oo 4 8 5 Be Ss a 


NEXT_TEST 


0004 'CF 7 ~=©00 


1385'CF_ O01 FB 
QO307'CF O072'CF ODE 


MOVL #39,W*CURRENT_TC 


PUSHL 

CALLS __#1,W*REG_SAVE 
MOVAL W*Q10W,W*SERV_NAME 
$Q10_S CHAN=W“MBCHAN, - 
FUNC=#10$ 7 weg 
Pi =W*GETBUF+8,- 


set up the mailbox 


tt a 

NSN NN NNO AAAS 

VMiFWN—OOONOUS 
ee 


Se Dae Dn Di De Die Rie Rie Bis Bi Res Ri Ri Di Re Die Be Bs Bie Rs Bi Bi Ri i Be Rs Di Bi Re De Bs es Bie Re De De Rs De Bs i DB Be Bs ee Bs es Bee De Bee ee Bes De De 


set service name 
Pp =f 
0 $Q10W_S EFN =#16,- 
0 CHAN=W“MBCHAN,=- 
0 FUNC=#10$_WRITEVBLK,- 
8 10SB=W“STAT,- 
Pl =W*TEST_DATA,- 
8 P2 =#80 : try _S with local EFN 
78 FAIL_CHECK SS$_NORMAL ; check for success 
01 DD OF7B PUSHL #SS$_NORMAL 
138F ‘CF 01 FB 7D CALLS #1,W*™REG_CHECK 
28 8108 er DE B¢ 127 MOVAL W*GETBUF+8,R6 3; set buffer address 
5 250°CF OD 87 127 MOVAL W*TEST_DATA,R7 ; set good data address 
00000050 HH D 3" 1 4 MOVL # 3 set the byte count 
0071'CF 00500001 8F 00 127 MOVL § #80816!SS$_NORMAL ,W*STAT1 : set dummy status 
00500001 8F DD 9¢ 1280 PUSHL #80816!SS$ NORMAL z set expected 10 status 
1287'CF 01 FB OFA 1281 CALL #1,W*BUF CHECK ; check the data 
0050 8F 00 saat FO 2c 8 “ 1282 MOVC #0,W°GETBUF +8, 40,480, W°GETBUF+8 ; init the buffer 
B3 1283 ;+ 
BS 1284; 
BS 1285 ; test _G with local EFN 
BS 1 § 3 
B85 1 :- 
c 1288 NEXT_TEST 
B STP40: | 
0004 'CF 8 00 B MOVL #40,W*CURRENT_TC 
0 oD 8 PUSHL # 
1385'CF 01 FB OFBA CALLS — #1,W*REG_SAVE | 
O12D°CF OSIE'CF OD BF 1289 MOVL W“MBCHAN,W“Q10WPFQ10W$_CHAN ; set the channel number 
C6 1290 $Q10_S CHAN=W“MBCHAN,- 
(6 1591 FUNC=#10 WRIfEVBLK,- | 
c6 (1 3 Pi =W*TEST_DATA,- 
C6 129 P2 = : set up the mailbox 
E9 1294 $Q10W_G W*Ql0wP ; try .G with local EFN | 


k § 
S SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44: AX/VMS Macro V04- Pa 3 
TESTS mit} P 4:29: ig UETPSY.SRCJSATSSSO1.MAR; 1 “se 5¢ 
FF2 1295 FAIL_CHECK SS$ ee ; check for success 
FF ey SHL ‘iy NORMAL 
F'CF FF CALL s wnee CHECK 
FF9 129 PUSHL A pee a I it : ope of"pestes 10 status 
*CF FFF 129 CALL ne z ghee k the data 
DB‘ ‘pe° ! ge 1298 MOVC #0, Hae TBUFS #0,#80,W°GETBUF+8 ; init the buffer 
101 1299 ;+ 
1010 1300 ; 
1010 1301 ; test _S with common EFN 
101 1 ¢ ; 
101 1 :- 
: ! 1304 NEXT_TEST 
101 STP41 
0004'CF 9 pO 101 MOVL #41,W*CURRENT_TC 
DD 101 PUSHL @# 
1385'°CF 01 FB 101 CALLS #1 ,W*REG_SAVE 
101C 1305 $Q10_s he =W*M MBCHAN 
orc 1 06 FUNC=#1O8 WRITEVBLK,- 
101C ~«#1 3 Pi *TEST_DATA,=- 
101C 1308 P2 =#80 3; set up mailbox 
103F 1309 $alow_s CHANSYSRECHAN, - 
103F 1310 FN =#65 
103F 1311 FUNC=#1O$ READVBLK,-=- 
er 1 \¢ Pi vs TBUF +8,- 
103F 131 ° 3 try _S with common EFC 
1066 1314 FAIL_CHECK SSS N 3; check for success 
01 DD 1308 cust NISSAN NORMA 
138F ‘CF 01 FB 106 #1, ¥ wt, CHECK 
00500001 8F oD 1988 1315 PUSHL i80a16!SS5°N MAC 3 set expected 10 status 
1287'CF } FB 10 1316 CALL #1,W*BUF estate eR 3; check the data 
0050 8F 00 we ait 2c 14 1317 MOVC #0, HCE TBUF SS. #0,#80,W*GETBUF+8 ; init the buffer 
1084 1318 3+ 
1084 1319 ; 
1084 1320 ; test _G with common EFC 
4 1321 ; 
1084 1 § :- 
1084 1 NEXT_TEST 
1084 
1084 STP42 
0004 'CF A DO 1084 MOVL #42,W*°CURRENT_ TC 
0 OD 18 9 PUSHL 
1385'CF 1 F 1 CALLS #1 Ay save 
0129°CF 09090041 F pO 1090 1324 MOVL  #65,W*Q10WP+010 set EFN 
131°CF 30 DO 1099 1325 MOVL = #108 URITEVBLK Oe rat uP sal0Ms. FuNt > set function 
O141°CF O250°CF DE 109E 1 6 MOVAL W*TEST_DATA,W*Q1OWP+Q10W$S_P1- ; Set new P1 parameter 
10A5 1 $Q10_S _— =W ur 
1 1 : pee Be aut, - 
10A 1 Ph TBUF + 
10A5 1 ? Pe s ; set up mailbox 
10c8 +1 $Q10W_G W*Ql0WP : try with common EFN 
1001 1332 FAIL_CHECK SS$_NORMAL ; check for success 
1 DD 1001 PUSHL SSS. NORMA 
138F ‘CF 1 FB 1 > cab #1, W™REG CHECK 
00500001 8F DD 1008 1333 PUSHL #80816'SS$ “NORMAL 3 set expected 10 status 


TEM SERVICE TESTS (SUCE S2C.) 16-SEP-1984 00:44:47 YAX/VMS Macro. VO4- p 
SSEp-198e Ouicd:37 EuetPsr.sReagaveesot.mar:1 29° 


: x“ CALLS #1,W*BUF_CHECK ; check the data 
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1287°CF §«=601—séFB 


: ; reset super mode handler to the original address and 
; dump any errors on the terminal that occured at AST disable time. 


ot te a 
a 


P: 
SOLCEFC_S W*EFCNAM ; get rid of the af guater 
4 SDASSGN_S CHAN=W*MBCHAN § MBXp*/ 
O307'CF 0077'CF M4 rf a “WOOCLCAH, -W*SERV_NAME 3 
1AF2°CF a) 28 Feet SEND’ oW*ERLBUF _DUMP ; dump any errors 
OO4C'CF ODD PUSHL W*TMD_ADDR 
004 fs DD PUSHL W*TMN_ADDR 
2 oD PUSHL ra 
0044'CF DD PUSHL “MOD_MSG_CODE 
00 "GF Bs fe CALLS asst 7G*LIBS$SIGNAL 
0044'CF 1 1C Bal, INSV aSTS $V_INHIB_MSG,#1,W*MOD_MSG_CODE 
0044'CF ODD PUSHL Shoe MSG CODE 


Od a oh 
tt ot tS QHODDOVDVOOVOOCO 
Mn] |] —DOOCOCOFAMMmMmMmmmmmno ww 


WEOOMONM DOW FS MINN st =< 


4 
00000000'GF 01 FB 


waste the 

set service name 

reset the CHMS handler 
CALLS #1,G*SYSSEXIT 


SA 
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SATSSSO1 = SATS 
vOus000 ROUT INE 4 04:29: UETPSY.SRCJSATSSS 
SBTTL ROUTINES 

SBTTL SETUP_SUPER ROUTINE 


+@Oow 


Routine to declare an initial CHMS handler from user mode. 
FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 

SCMKRNL_S W*SETUP_SUPER,ARGLST 


ARGLST = address of a pointer to a one parameter argument List conta 
the address of the entry mask of the CHMS handler 


INPUT PARAMETERS: 
ARGLST 

IMPLICIT INPUTS 
NONE 

OUTPUT PARAMETERS: 
Declares a change mode handler for super mode which must be 
reset to DCL in the users handler routine when the handler is 
no longer needed. 


IMPLICIT OUTPUTS: 


NAUE WN OO OONOAUE WO OONOUS 


Bete Se Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Se Se Se Se Se tebe e « 
aa 


RIPPIN IPIPIPIPIPPIDPPPPPIPNIPIPINPINIPIPIPIPIPIPIPIPIPIPIPIDPIPIDPPIPIPIPIPDPIPIPIPIPIPIPIPIPIPINIPIPININ — 
i as De eas De Do De De en a En Re a es a i a i a ie ee i ie i i i ee ie te ie ie he i es ee 
OOOO OO 0909.60 09 09 09 G9 09 09 G9 SI SIN NN OPP DAP A AAD III 


a anki ii i aa a ii ka tk ak at a a ~~ 4 2 4 4 2 
a aan aaa a “a a 4 as a a a a a a 
a a a a a 8 “a a a ts 2 2 a a a 


9 NONE 
; COMPLETION CODES: 
4 NONE 
$ SIDE EFFECTS: 
8 NONE 
ON ENTRY: 
KsP =>! 0! wwii. ¢ 
: i § i i USER ! 
4 i ap i i i 
5 ; 24 i CALL i 
i pe i i i 
39 i 0 i i FRAME | 
9 ' ! 1 ' 
35 GAP be 
4 9 Po ips 
4 iSRVEXIT! 
4 é eae ae 
4 i pst 
> i a ee ee ye 
405 :-- 


eee eee ed 
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$0u2000 SETUP. SUPER ROUTINE Breen 1986 Onss0ske Loetber eae igayeesos mar:1 29° 32, vo. 
112F 1407 RETURN_PC: 
00000000 1 1? 3 anene.e gk? 0 ; storage for user return PC 
00000000 1 1410 , “is 0 ; storage for handler PC 
1137 1412 SETUP_SUPER: 
53 0005 i 5 1218 7 mFoR arn Suse > Ll f dd 
the user ca rame a 
cE AF 10 88 bB tiSe tele MOVE SFSETSAVE PCRS) /B*RETURN_ Rn’, ot teen 
ED AF 4 AC DO 1141 1418 MOVL 4 (APY ,HANBLER_PC :"save the handler address 
52 0C AD DO 1146 141 MOVL  SFSL gave FP(FP),R : get saved FP 
52. 00° 3 114A 1418 ADDL SrabrE sc CMSTKSZ, R : Back over change mode stack frame 
62 5B'AF 5 114D +141 MOVAB ®B*2 turn address 
9A F 113} 1? y INSV ccer sits SUPER@PSLSS_ curMods+PSi $c _SUPER>,= 
04 ag 4 1154 14 § #PSLSS— ~CURMOD*2 4(R2) ; set current and previous mode to super 
1 DO 1157 14 MOVL S*#SS$_NORMAL, rb 3; set correct return code 
04 115A 1424 RET 3; enter super mode 
76 De 118 4058 
61'AF 6E FA 1128 1? ; 30s CALLG (SP) ,B*30$ 3; create inityal call frame 
0000 1161 1429 ° .WORD “M<> > entry mask 
00 OD 1163 1430 PUSHL #0 : gust a dummy parameter 
1385°CF O01 FB 1165 1431 CALLS #1,W*REG ave the registers 
116A 143 SDCLCMH_S SNANDLER pe W*PRVHND1, io°; set real handler 
117A 143 FAIL_CHECKNP SS$_NORMAL : check for success 
01 OD 117A PUSHL ARSSAN ORMAL 
1A76'CF 01 FB 117C CALLS Poeneec CHECKNP 
03C00000 8F DD 1181 1434 PUSHL #<<PSLSC wUgeresec eves CURMOD>= 
1187 1435 C AOSERSPSLSV_ PRVMOD>>:; set return to user 
AS AF DD 1187 1436 PUSHL RETURN P : set the return PC 
02 118A 1437 REI 3; return to user mode 


| 
CLRL = (SP) ; set up dummy PSL 

| 

| 

| 

| 

| 
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TEM SERVICE TESTS (SUCC S.C.) 16SEP=1984 00:44:47 YAX/VMS M 4 si 
~SEP-198¢ 64:39:87 LUETPSY.saeagaTseson wmar:1 "29% 2, 
-SBTTL SUPER MODE 


: FUNCTIONAL DESCRIPTION: 
Routine to handle the CHMS instructions. 


CALLING SEQUENCE: 
CHMS aN 
INPUT PARAMETERS: 
SP=> zen parameter 
PSL 
The CHMS parameter can be one of the following: 
1 = execute SASSIGN and SDASSGN service tests 


§ = execute a SDCLCMH_S to reset the CHMS handler to DCL 
= execute SALLOC and S$DALLOC service tests 


wn Bete Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Sete 


a a a 8 8 ed od od dd dS dS Sd Sd dt 
PS Se ee ot ot et ee ae ae ee ee ee eee eee 
NNNNN NOAA OA AAAOA AAAI EE PEPPER 
PUN EWNOODNAUNE WR O CONAUES WN OOONAUE WOO 


ek a kk at a tt 2 a - sb bs as ts st ts a a a as tt ts 


OUTPUT PARAMETERS: 
NONE 
UPER_MODE : 
50 8E 00 MOVL (SP)+,R 3 ~ CHM parameter off the stack 
Ss. tT 2 108 CASEB «RO, #1, ; do the right thing 
3 900 9 "WORD 208-108 
010 9 -WORD A B- 138 
0031 208 -WORD A40-10$ 
02 ppd 119 " - PUSHL = @#PSLSC_SUPER ; push the mode 
1BEF'CF Q1 FB 9 CALLS #1,W*ASSDAS_CHK ; do the tests 
0028 = =31 r A30 BRW a5 ; get back to user mode 
O307°CF OO77"CF ODE A : MOVAL W*DCLCMH,W*SERV_NAME ; set service name pointer 
A SDCLCMH_S @PRVHND1, ,#0 : reset the CHMS handler for DCL 
B FAIL_CHECK SS$_NORMAL : check for success 
1 DD B PUSHL #SS$_NORMAL 
138F "CF 1. B CALLS #1,W*REG_CHECK 
r. : 1o2r ase BRB AS ; get back to user mode 
Oe DD C 1298 PUSHL #PSLSC_SUPER ; push the mode 
1B5C'CF 1 FB ¢ 1681 ase CALLS #1,W*ACLDAL_CHK ; do the tests 
02 CA 1482 : REI ; return to user mode 


00001283 


00001287 
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11 
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11 
11 
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$1 
11 
11 
11 
OFFC 11 
"1 
7E QOOOO037A°EF BO 11 
OQGOOOS7A'EF  O0001283'EF BO 11 
QOOOO2EB‘EF DD 11 
QOOOOO2ZEB'EF 00001 o 43 
00001287"EF O01 F 
g ee 8ED 
0000037A'EF E 8 
4 
0020 
G00 : 
0 As] 
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STEM SERVICE TESTS (SUC S.C.) 16-SEB-1984 
=SEP-1984 


zr .SBTTL BUF _CHECK 
FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
PUSHL #EXPECTED_IOSTATUS 
CALLS #1,W*BUF _CHECK 


PARAMETERS: 

R6 = buffer address 

RP? = good data address 
R8 = byte count 

STAT = 10 status #1 
STAT1 = IO status #2 


OUTPUT PARAMETERS: 
NONE 


INPUT 


De Se He Oe Se Oe He Se He Se Se Ge Be Se Se Ge Sete Se 
[ 
o 


ISK_BUF _CHECK: 


SGETDVI_S CHAN = C 
TMLST 


= DISK_{TMLST 


PULP SVPVSVSUSISTASISTSTISIAAISIIIIION ££ £™ = S~ SS S~ £~ S~ &~ E~ E~ EE 
3 tt SS MODOC DOOOOCOOOOOOO0O0O0O0O0 OCMC ODOD CD 


PAA ANNI nonononopononononnny 
DODNO AEA OO OONOA UNE WIN 0 OD NAME WAIN 0 OD NA UNE WN OD OD NA NEA OOOO NA NE 
09 
= 
nn 
se 8 
>>re 
ocvco 
o°onm 
Dzwwo 
mm 
nn 
nn 
o 
o- OoOoF 


MOVW ppe8 sD 1B$u Tw -(SP) 
MOVW  DISK_UNIT,PB+8+0 
PUSHL RGL 
MOVAL DISK_NAME,ARGLST1 
PUSHL 4(APY 
CALLS #1,BUF_CHECK 
POPL ARGL 
MOVW (SP)+,PB+8+DIB$wW_UNIT 
RET 
2 K_ITMLST: 
K_NAME : 
5 DVIS_DEVNAM 
5 iSk_NAME_BUF 
1SK~NAME 
D DVIS_UNIT 
- ADDRESS DISK_ONIT 


4 
DD 
- LONG 9 
. LONG 
DISK_NAME_BUF : 
-BLKB 
DISK_UNIT: 
-BLKB 4 
BUF _CHECK: 
MOVL ‘ 


n3 (R7), (R6) 
10$ 


el ae ee el cel el el cel el el a el el el el el el el elt el ls lh lls el ls ee ee a 8 a ed ed od 


80:3 


“M<CR2,R3,R4,R5,R6,R7,R8B,RI 
HAN] .= : 


1B$W_UNIT 


4:47 \VAX/VMS M 4 P 
$f y acro ¥9 age 


8oaF Tee eae te ees Oe aR: 1 


Routine to check the contents of a buffer against known good 
data and check the 10 status return. 


set expected 10 status 
check buffer 


R10,R11> 
Get characteristics for our disk 


; Save old device unit number... 

> ...and substitute our own 

Save ptr to old device name desc... 
~.-and substitute our own 


; Check that we got good data 


: Restore old device name desc... 


.WORD ar Be AS M6 RI ASAT AS UO 
R6,R 


t ...and unit number 


ITMLST for S$GETOVI 

Note that this becomes desc for name 
Our disk name 

Note that we overwrite length! 

The unit number of the spindle 

End of SGETDVI ITMLST 


String giving our disk name 


Unit number of the spindle 


; check the ftfer 


; br if goo 


; save a copy of the buffer address 
u 
d 


C 
¢ 

¢! 
C! 
¢! 
¢! 
C; 
C 
¢ 
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= SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44: AX/VMS Macro V04- Pp 4 $/ 
BUF CHECK Breer] Sbs BoiSS:3h FOEINES Sacco WOscOO ue. Page 42, $) 
i 154 SUBL3 R9,R3,W*ARGLST1+ 3 get buffer offset F| 
= $4 1 c3 MOVIL votes 1B$W UNITs »W*ARGLST14#4—; get the unit number F| 
A 109F 154 MOVZBL (Ry »WAARGCST1+1 3 get the good data F] 
A 10A6 1544 MOVZBL (R3),W*ARG sriet 3 get the bad data F] 
109 1545 SGETMSG_S MSGID=#UETPS_DATAER,- F| 
12A9 1 4g MSGLEN=W“ML , = F] 
1209 154 BUF ADR=W*CTRSTR,= F] 
12A9 154 FLAGS =#1 ; get the ctrstr Fi 
1eC2 154 SFAOL_S W*CTRSTR,W*ML,W*GETBUF ,W*ARGLST1 ; make it readable Gt 
O1CB'CF DF 1209 1 PUSHA a 3 push the desc. address GE 
1301'CF O01 FB p 18 CALLS #1,W*PRINT_FAIL ; print the failure +s 
0069'CF 04 aC b4 : 3 ¢ cMPL 4(AP) ,WASTAT ; check status : Gi 
O069'CF DD 12EA 1555 PUSHL yogtar ; else save it Gt 
ee } i! ! 2$ 208: BRP 0$ ; and continue in common 
OO71'CF 04 ac bt F 1338 ; CMPL 4CAP) STATI ; check lo status #2 
0071'CF 0D ! 8 1389 308 PUSHL W*STAT1 : pise save it 
04 AC DD 12FC 136 "  PUSHL 4 CAP) : save expected 
0182'CF DF I2FF 156 PUSHAL W*IOEXP 3 push ocr ing variable 
13D1°CF O03 FB 05 1364 on ALLS #3,W*PRINT_FAIL ; print the failure 
04 «1 8 1566 ; RET ; return 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


It 
IC 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
K 
L. 
mt 
mt 
mi 
mi 
mt 
mI 
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SATSSSO1 = SATS SYSTEM SERVICE TESTS csuct S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04- Page 43 
vO0s000 1ONC o73Eb= S82 0:39:37 UETPSY  SREISATSSSO9 «MAR: 1 . (4) 


-SBTTL IONC 
; FUNCTIONAL ate ap hoes 


1 156 
a ah 
f : AST routine to service 10 AST's for the CANCEL service 
1309 1 “ t CALLING SEQUENCE: 
! 4 } oe : Entered via an AST 
1309 1 i: : INPUT PARAMETERS: 
} 2 : 4 3 STAT = CANCEL status return 
1309 1 8 t OUTPUT PARAMETERS: 
1309 1580 : NONE 
1309 1581; 
1309 1888 
1309 13 4 10NC: 
O3FC 1309 1585 «WORD “M<R2,R3,R4,R5,R6,R7,RB,RO> 
1B'AF 00 FB 1308 1386 CALLS  #0,B*CAN. CHECK : check the cancel 
130F 158 SWAKE_S ; tell the test to wake up! 
04 131A 1358 RE 3; return 
} 1 138) as -SBTTL CAN_CHECK 
1318 1591 : FUNCTIONAL DESCRIPTION: 
: 1 1338 ; Routine to check the results of a CANCELLED IC. 
1318 1594 : CALLING SEQUENCE: 
: HY 1232 : CALLS #0,W*CAN_CHECK 3; check results 
1318 1397 : INPUT PARAMETERS: 
iB ie: to 
1318 1600 : OUTPUT PARAMETERS: 
1318 1601 : NONE 
131B 16 ¢ : 
1318 1608 ° 
1318 1605 CAN_CHECK: 
O3FC 1318 16 : . WORD*M<R2,R3,R4,R5,R6,R7,RB,RO> 
2c = 0071'CF Bi 10 1607 WogTAtT S58 abort ; check 10 status blk 
3 r 
0071°CF DD 1324 1609 PUSHL W*STA 3; push received 
2C DD 1328 1919 PUSHL #SS$_ABORT 3 push expected 
givers DF 132A 161 PUSHAL W*EXP ; push string variable 
13D1°CF 3 «FB ! 1ol¢ 108: CALLS #3,W*PRINT_FAIL 3; print the failure 
0069'CF D4 1 1614 CLRL~—WASTAT : setup for next CANCEL 
04 «#1 1615 RET 3 return 
| 


WUNVNNMNHYMHMUY 
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v04 COUNT _CHAN 823E p= 1984 62:39:37 t RCJS SATS $501. MAR; 1 : (4) 
~SBTTL COUNT CHAN 


: FUNCTIONAL DESCRIPTION: 
Routine to count the number of assigned channels. 


OOon 


1 161 
1818 + + 
169 
1 16 : ; CALLING SEQUENCE: 
: 1 i 3 CALLS #0,W*COUNT _CHAN ; count the number of assigned channels 
1 1625 : INPUT PARAMETERS: 
: 1 § 3 NONE 
1 16 : + OUTPUT PARAMETERS: 
} 5 3 TOTAL_CHAN = count of all assigned channels 
tT a 
1 16 : TOTAL_CHAN 
00000000 : : 1 : cont ee 0 3 assigned channel count 
001c 133C 16 é ~"WORD = “M<R2,R 
52 09 O0000000'EF Ci 133E 16 ADDL3 CTLSGL “EtBBAse #CCBSB_AMOD,R2 =; get base and offset to test assign 
— 1 46 1638 MNEGL #CCBSC~LENGTH,R3 > set starting channel index 
54 00000000'9F %3C 1349 1639 MOVZWL anc TL Stu ENRIOEH. R4 > get number of 1/0 channels 
FFE4 CF D4 ! 20 1949 ses CLRL W*TOTAL_CHAN ; init the # of channels 
6243 95 1354 1648 " - TSTB. ss (R2)ER3I : is channel assigned? 
13 1357 164 BEQL 208 ; br if not assigned 
FFDOB CF 06 : 4 et) 208 INCL W*TOTAL_CHAN ; else bump chan count 
53 10 C2 135d 1646 "  SUBL2.s #@CCBSC_LENGTH,R3 : cale next channel index 
F1 54 2 : 69 193 neere R4,10$ ; on more CCB‘s 
3 return 
: rf 1605 -SBTTL STORE_STEP 
1364 1651 " FUNCTIONAL DESCRIPTION: 
: oe 1906 3 3 Routine to store step information in the error log buffer. 
1364 18ea CALLING SEQUENCE: 
64 1655 3 : CALLS #0,W°STORE_STEP 
1366 1652 INPUT PARAMETERS: 
! re 1608 3 3 ELBP = current errlog buffer pointer 
1364 1660 ; : QUTPUT PARAMETERS: 
1364 1 : FLAG = error logged flag 
1364 1666 3 
a igh 
1364 1665 STORE_STEP: 
at 1364 1998 WOR “M<R2> 
1495°CF 01 1366 166 BISB #1,W*FLA ; set the error Apter flag 
5 4 Bd DO 1 1668 w°ELeP, : get errlog buf 
307°CF DdO 1 19 199? MOVL W*SERV_NAME, (R2)+ 3; Save the Reretes name 
. ‘Hh DO 1375 16 9 MOVL W*CURRENT TC, (R2)+ ; save the step number 
1 ae | DO 137A 167 MOVL W*MODE , (RZ) + ; save the mode 
1496'CF 2 137F 1926 MOVL R2,W*ELBP ; reset the errlog buf pntr 
4 1384 167 RET 3; return 
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SATSS$S01 = SAT ¢ 4- 
yous800 REG_SAV UETPSY.SRCJSA 9¢504 MAR: 1 (4) VA 


.SBTTL REG_SAVE 


$ FUNCTIGNAL DESCRIPTION: 
: Subroutine to save R2-R11 in the register save location. 
: CALLING SEQUENCE: 
3 PUSHL # 3 save a dummy parameter 
: CALLS #1,W*REG_SAVE ; save R2-R11 
: INPUT PARAMETERS: 
: NONE 
: OUTPUT PARAMETERS: 
: NONE 
OFF sate ema “M<CR2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
QOO8'CF 14 AD 28 58 MOVC #4] “KT 4CFP) .WAREG. SAVE_AREA ; save the registers in the program 


04 
.SBTTL REG_CHECK 


+4 

; FUNCTIONAL DESCRIPTION: 

: Subroutine to test RO & R2-R11 for proper content after a service 
execution. A qoegenes is taken by the REG_SAVE routine at the 
beginning of each step and this routine is executed after the 
services have been executed. 


; CALLING SEQUENCE: 
3 PUSHL #SS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


; INPUT PARAMETERS: 
3 expected RO contents on the stack 


; OUTPUT PARAMETERS: 
; possible error messages printed using SPUTMSG 


CSDOOGOOOCOCOC OC OOOO O OOOO WDDWDWODWMOMMO YN 


=—=ODODNAMNLS ADR 9 OD NA NEW 9 OO NOAM EWI 0 OD NOU EW O ONO UE WR" OOONOuU 
Oe Oe Oe Be Oe Oe Oe Be Oe Oe Oe Oe Be Oe Be Oe eee 
o 
t 
e 


| 
: 
: 


REG_CHECK: 
OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
50 O04 AC 01 CMPL 4(AP) ,RO ; is this the right fail code? 
0 13 EQL 10$ ; br if yes 

5 DD PUSHL RO ; push received data 

0 AC 0D PUSHL  4(AP) 3 push expected data 
0174°CF OF PUSHAL W*EXP 3; push the string variable 
13D1'CF O3 FB ALLS #3,W*°PRINT_FAIL ; print the error message 


10$: 


> S & OO 000000009 09 00 09 09 09 CD 0D OD 0D CD OD CO Cd CD C9 CD CD CD C9 CO CO CO COCO CO COCO CU CDCDCOCDCDCUCRDCRODCDODOD «miu 


DDD DG FF FF 8 8 8 NN YN Ye ee ee Pe 8 PE TIS 


OOO8'CF 14 AD 


$ 
A 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 CMPCS «#4210,°X14(FP),W*REG_SAVE_AREA ; check all but RO 
: br if O.K 

1 

1 

1 

1 


a a a a ad dd 
SOS SN SSNS PAA AAA AAA AAO POO POOP POOOOranon 


HINPORSPONNONONONONN) 


; AC BEQL 3 K. 
56 53 000 gos" 4 i a5 svat #REG_SAVE_AREA,P3,R6 ; calculate the register number 
7E 6 8} ADDB een R6,-(SP) 3; set number past RO-R1 and save 
1 CA p BICL x RM ; backup to register boundrys 
3 CA C BICL #3,R 
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50us800. REG CHECK © . Breer ies Bossoske LOE Mee eae sSayecsos mar;1 2? 
1 PUSHL (R1) : ush received data 
8} BD 1 3 5 : push HL {RS} ; eush expected data 
OISD'CF DF 13C7 1734 PUSHAL W*REG 3; set string pntr param. 
1301'CF 04 FB ! i é 208 CALLS #4,W*PRINT_FAIL ; print the error message 
04 1300 1 et wat 
13D Vf § -SBTTL PRINT _FAIL 
13p1 170 ¢ FUNCTIONAL DESCRIPTION: 
: 4 i 3 Subroutine to report failures using SPUTMSG 
1 4 : ALLING SEQUENCE: 
1 pf 150 : ‘ mods: 4° PUSHL AML Mode #2 PUSHL REG_NUMBER 
1301 1745 ; it Hy titi ae PUSHL EXPECTED 
13D1 1re8 : PUS a Mt PUSHL RECEIVED 
1301 1747; CALLS UPRINT FAIL PUSHAL STRING_VAR 
13D1 1008 ; CALLS #4,W*PRINT_FAIL 
13D1 1749 ; Mode #3 PUSHAL STRING_VAR 
: 4 1739 5 CALLS #1,W*PRINT_FAIL 
1301 1238 : INPUT PARAMETERS: 
! 4 103? ; Listed above 
1301 1755 : OUTPUT PARAMETERS: 
13D1 1736 ; an error message is printed using SPUTMSG 
13D1 1757; 
1B) pee i 
cose HEB] HER PUNE) anc 
1303 176 yor S for: ESSAGEL. W*MSGL ,ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
13F4 1588 SPUTASG_S ’niGu : “print the méseage 
04 gf 1 1783 1788 cor ; is + ip ° register message? 
01 6¢ 4 140A 1766 CHP B, #1 ; is this. just a message? 
140F 1768 $FAO_S Wiese W“MESSAGEL ,W*MSGL ,4 (AP) ,8(AP), rAtAPS 12(AP) 
40 11 148 179? 108 BRB 30$ ; goto output message 
14 1771 : SFAO_S W*CS3,W*°MESSAGEL ,W°MSGL,4 (AP), 16(AP) ,8(AP) ,4( AP), 16(AP) ,12 (AP) 
19 «#11 12 1776 208 BRB 30$ 3 goto output message 
O332'CF O04 AC 00 128) 1774 : 4 (AP) ¥ BSSVECT#te ; save string address 
145D 1775 SPUTRSG. S W°MSGVEC 3 print the message 
11 11 1495 1008 308: BRB “408 ; skip the other message 
1470 1778 tt, SPUTMSG_S W°MSGVEC ; print the message 
1B2F°CF 00 FB 1481 17 "CALLS = #0, W* MODE : identity the mode 
004C'CF O2A'CF pF 1486 17 ; MOVAL w‘*TEST “R05, PAIL, W*TMD_ADDR ; set failure message address 
0044'CF 03 02 4 re 4 ¢ [a3¥ #ERROR 7 #0, 93, W°MOD _MSG_CODE 3 set severity code 


| 

SATSSSO1 Macro y04- Page 47 
v04 SREISAYSSSO1.maR;1 2° $55 
| 
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.SBTTL REG_CHECKNP 


p++ 

; FUNCTIONAL DESCRIPTION: 

Subroutine to test RO & R2-R11 for proper content after a service 

execution without printing it. A enage ot is taken by the REG_SAVE routine a 
beginning of each step and this rout 7 is executed after the 

services have been executed. This routine collects the error 

nformation in buffer ERLB instead of printing it. 


CALLING SEQUENCE: 
PUSHL #SSS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*"REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages logged in buffer ERLB which are printed 
using routine ERLBUF_DUMP. 


Error packets are in the following form: 


Step # i 
‘Mode name pointer! 


: , : long word count 


00 -BYTE 0 ; error flags are Bite = 0 means no errors in the bu 


; 0 = 1 means errors in the buffe 
«ADDRESS ERLB ; error log buffer pointer 
-BLKB 1500 ; error log buffer 


REG_CHECKNP: 
Ww si rs ti Tada ta a R9,R10,R11> 
CMPL = &(AP) LR : is this the right fail code 
r yes 
; store step information 
; get the current error log pointer 
; save the yen word count 
> save received status 
; save expected status 
; save the string variable 
; set the terminator 


0000149" 
00001A76 
OF 

50 04 AC 


F8E1 CF $6 
5 F AOF o 


82 0% AC 
82 0174'°CF 


fF" flout 
63 02 


> DD De ek ee ee ee ek ek ek ek ek Sk ek ek Dek ek ek ek ele Jee ee ee eke ek Je ek ek ek ek Je ek ek ek 


NNN OO 


own 


W*STORE_STEP 
P Re 


- 
= 
~ 
aa 
TE TE TE TEs! 


oO 
~rom 


a a a a at td od a es a 8 1 3 


P, 
LBP 3; reset the buffer pointer 

st 00 FAIL,W*TMD_ADDR ; set failure message address 
OR7#0,83,W*MOD_MSG_CODE ; set severity code 


>>>>>>r>r>r>r> 


5s 


OMOLMoooowdw- 


"Oooo VT TIT oOo" Oo" 


E 
r 
R 
MOVAL 4 
R 
w 
’ 


0044 'CF 


SATSSSO1 
v04 
Q008*CF 14 AD ‘ 
ra ce 
5 £308 4 
0000 S08: F 
a 
"Ee 
Bs 
82 5D°CE 
F9B3 fr 83 
004C'CF O2A'CF 
0044'CF O03 00 02 
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OmMofLmoo-f WOoomwsd 


“OVTVTVITIIAFO owouonTr 


>>>>H>E>EH>>>>>>>>>>>> m 
™m 
° 
= 


WHMMMOVCVVIMOOMOO 
= PUG NSE HO POON TPO A 


— ee at a a te a te tt zm 
— se a ss 
DPD PPA 
—OOONO NES WP "OOO VWOUfw 


o 
> 


SEP=1 


§*#4,(R2)+ : 
#REG_SAVE_AREA,- 

$*#4 RO ; 
$°#2.R6,(R2)+ 
(RI), (RE) : 
(R3) .(R2)+ : 
w*REG, (R2)+ : 
(R2) 3 
R2,ELBP r 
W*TEST_MOD_FAIL,W 
#ERROR+#0,93,W°MO 


D_MSG_CODE 


4:29: UETPSY. 


store step information 


; get current error log bu 


set longword count 


calc reg number 

make it a longword count 
correct for RO-R1 and sa 
save received results 
save expectee results 
save string variable 

set the terminator 

reset the buffer pointer 
TMD_ADDR 


Bbc 0:39:37 ELETPSY. SRESATS¢SON .mAR: 


cHecs gae10,“K14 (FP) .W°REG_SAVE AREA : check all but RO and R1 
; or 

CALLS #O,W°STORE_STEP 

MoV. sé ; 


f pointer 


ve 


Page 48 


; set failure message address 


3; set seve 
bail out 


rity code 
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ERLBUF _D 873 4 2:39:39 LOETPSY. SREDSATSSSO7 «MAR: 1 g (5) 


v04 UMP 
“ 
9 
C 
1 
6 
7? 
7 
9 
C 
; 
A 
E 


.SBTTL ERLBUF_DUMP 


p++ 
; FUNCTIONAL DESCRIPTION: 

; Routine to check for errors in the error log buffer and 
report any that are there. 


CALLING SEQUENCE: 
; CALLS #0,W*ERLBUF _DUMP 


; INPUT PARAMETERS: 
FLAG bit QO = 9 for no errors ogee 
FLAG bit 0 = 1 for errors logge 

if errors logged then buffer 


OUTPUT PARAMETERS: 
NONE 


; RLB must contain legal format errors 


ERLBUF _DUMP: 
WORD 


a cae ca ae a ee ca ae a a ee a a ee ee ee ed eee ee eae ee ee ee a en ee eee ee ce ee cl el en ce ee cel 
DOWWDWOWOWDOVIOTOIWOWIOIOr>r>r>r rrr rrrrrrrrr>rr>r>rr>r>r>r>,r i 

00.09 00 C9 09 09 C9 09 09 SI NI NINN SSNS IOP AAO Oo 

DOONAN E WN 0 OD NA NEA O ODNOUEW 


PRIMING 2 4 2 O00 7 7 FF nn nn a nn oo 
a a ad dd 


001C “M<R2,R3,R4> 
2A F99D CF OEO BLBC FLAG, 508 ; br if no errors to report 
52 F99D CF DE 108 MOVAL ERLB,R ; set up buffer pointer 
62. OD TSTL (R2) 3 any more errors? 
$} 1 BEQL 30$ ; br not 
0307°CF bd MOVL  (R2)+,W°SERV_NAME ; reset service name 
0004'CF 8 DO 0 MOVL (R2)+,W*CURRENT_TC ; reset step # 
O1S9'CF 8 dO 91 VL (R2)+,W*MODE 3 reset the mode 
¢ ? oa 9 MOVZBL (R2)+,R3 3; get the longword count 
4 dO + 208 MOVL R3,R4 3; and save it 
8 D 9 PUSHL (R2)+ ; push a parameter 
FB F 9 SOBGTR R3,20$ ; and push them all 
F8B0 CF 54 FB 9 CALLS R4,W*PRINT_FAIL ; print the failure 
dB é«dm? 98 te BRB 10$ : do the next one 
F96C CF F973 CF ODE 39 MOVAL W*ERLB,W*ELBP =; reset the buffer pointer 
F96C CF D4 90 CLRL W*ERLB 3; set fresh terminater 
04 902 RET ; bail out 


$$ abe yal RALLOC 
CALLS #1 WEREG CHECKNP 
1957 MOVAL uDALLOC. W“SERV_RAME ; set new service name 


DD 
af 64c* CF ‘CF DE 


SATS 1 = SATS SYSTEM SERVICE TESTS suck s° S60) 1 set 7 VAX/VMS Pr lacro V Pa 5 SA 
SATSS50 sokt'le G-SEB=198S 90:56:62 YAN/MS Macro, 04-00 49., Page 4 ‘4 
1B2F 1905 .SBTT | 
ibe 19 6 - SBTTL MODE_ID 
1B2F 1 3 FUNCTIONAL DESCRIPTION: 
i : 1? 8 : Subroutine to identify the mode that an exit handler is in. 
1BoF 1 p : CALLING SEQUENCE: 
is : : : 5 CALLS #0,W*MODE_ID 
1BoF 1318 : INPUT PARAMETERS: 
1BeF 1914 ; MODE contains an address pointing to an ascii string desc. 
: 131? 3 of the current CPU mode. 
1BOF 1319 : OUTPUT PARAMETERS: 
1BoF 1918 ; NONE 
1BeF 1919; 
iar 1agh E 
1B2F 1922 MODE_ID: 
003¢ 1BoF 19 q .WORD “M<R2,R3,R4,R5> 
1831 1924 $FAO_S w*CS {WAESSAGEL. W*MSGL.MONE ; format the error message 
hi BGA 19 5 SPUTRSG. S W°MSGv s Meine the eede message 
1B5C 19 5 : 
1B9¢ 19 g ns .SBTTL ALLDAL_CHK 
1B5C 1930 : FUNCTIONAL DESCRIPTION: 
183e + 1 3 Subroutine to do the $ALLOC and S$DALLOC tests 
1B5¢ 19 : : CALLING SEQUENCE : 
1B5C 1934; PUSHL #ACCESS MODE 
1836 13 ; : CALLS #1 GEALCDALS CHK 
1B5C 1937 : INPUT PARAMETERS: 
183 1° 3 : 4(AP) = the access mode for the test 
1B5C 1940 : OUTPUT PARAMETERS: 
1B5C (1941: NONE 
Ha 
1B5C 1944 ° 
1B5C 1945 ALLDAL_CHK: 
003c 1B5¢ 1946 .WORD “M<R2,R3,R4,R5> 
00 DD BSE 194 PUSHL a9 ; push a dummy parameter 

F820 CF O01 FB 186 1308 CALLS W*REG SAVE 3; Save a register snapshot 
186 1949 SALLOC_S "DEWARSO RBNAR, - 
1865 1951 PHYBUF "GE fBUF. - 
186 1336 ACMO 3; try _S mode 

— 18/0 195 FAIL aes 1 335 NORMA NORMA : check for success 
ooh FE? CF St FB 1B7F ALLS nw REG C CHECKN 
4 AC DO 1884 1954 (AP) JW*ALLOFALLOCS. ACMODE 3 set the new access mode 
1B8A 1955 SALLOC_G W*A 3 try mode 
1B 1956 PAIL ~CRECKN $S$_DEVALRALLOC 3 choc for proper failure 
00641 ' 1B9 PUSHL ’ 

189 
1B9E 
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SATSSSO1 = SATS SYSTEM SERVICE TESTS (suce S.C.) 16-SEP-19 AX/VMS Macro V04- age 51 | 
$Ou 5808 ALLDAL CHK g- at tS $233 3:35 UETPSY.S Sees e a eesot mars . (5) | 
1BA 1928 SDALLOC_S te fr 9 ail - 
1BAS 19 33 NORRAL : try mode 
-. 188 1960 FAIL ACMECKNB ss yh? oe r Teck for success 
FEBC fr a FB 188 sti: a whe Che CKNP 
0307'CF 038'C DE 1BBA 1961 MOVAL w*A' LOC W*SER V_NAME ; set new service name 
18C1 1396 SALLOC_G W*ALLO ; try successful _G form 
rare th 196 FAIL =CRECKNF Moats eo 3s check for success 
> gf 8 FB BCC cher ts rh ie UTReGe CHE CKNP 
0307' cr of CF DE 18D1 1964 MOVAL Ot ett SER ot set new service name 
00B8D ' CF AC DO 18D8 1965 MOVL = 4CAP) Oe ee repactoc _ACMODE set new access mode 
18D 19 : SDALLOC_G W*DAL ; try _G mode 
a ieee 196 FAIL Moe rm $$ Arg See, 3; check for success 
FE88 CF O01 FB 1BE9 CALLS # soenee. CHE CKNP 
04 ier 1968 RET 3; return 
1BEF 1970 * ‘ .SBTTL ASSDAS_CHK 
1BEF 197¢ y FUNCTIONAL DESCRIPTION: 
Hs} Wer ; Subroutine to do the SASSIGN and $DASSGN tests 
1BEF 1975 : CALLING SEQUENCE: 
1BEF 1378 2 PUSHL #ACCESS_ MODE 
aH ore : CA rts #1,W*ASSDAS_CHK 
1BEF 1979 : INPUT PARAMETERS: 
1BEF 1980 ; 4(AP) = the access mode for the test 
Ho} 198) 3 CHAN_SAVE = correct number of channels 
1BEF 19 4 : OUTPUT PARAMETERS: 
1BEF 1984 ; NONE 
1BEF 1985 ; 
1BEF 1989 
1BEF 1988 ASSDAS_CHK: 
003C BEF 1989 -WORD “M<R2,R3,R4,R5> 
DD 1BF1 1990 PUSHL a9 : push a dummy parameter 
F78D CF OF FB 1BF3 1991 CAL 1,W*REG_SAVE ; Save a register snapshot 
1BF 1998 $CR 5 CHANGUTARCHAN, - 
1BES 1994 BRAT LO=s e 
1BF8 1995 RAnELS=#0, USER; create temp mailbox 
1COF 1338 SASSIGN_S phan W*MBNAR, - 
1COF 199 zee Te. - 
1COF 1998 nODE=4. saan 3; try _S mode 
1C¢ 1999 FAIL_ CHECKNE ss ; check success 
mcr BB IE Hi tee 
0085 'CF 04 AC DO 1C2A 0 9 MOVL Veg: anaes “ACHODE 3; set the new mode 
1€30 20 SASSIGN.G W*ASGN ; try the 6 forn | 
1¢ 2 FAIL ~CHECKNP $38 NO 3 check success 
oI DD 1C€39 USHL a3 RMAL 
E36 of ; FB 1C et S$ @# pi: CHECKNP | 
0307°CF 045°C DE 1648 $003 W“DASSGN WSERV _RAME ; set service name 
1€4 4 SDASSGN. S CHAN=W*CHAN1 3; release channel 
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SATSSSO1 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V04- Page 5§ 
5042008 ASSDAS_CHK §-§ ets 2:39:39 UE TEST. CRE TSAYSSSOS MARS 1 . 3g, 
1C 2005 FAIL _CHECKNP SS$_NORMAL ; check success 
1 DD 1¢ PUSH RSS L 
FEIC ff 1 fe 1¢ CALL #1,W*"REG_CHECKNP 
00B1'CF 322°CF DO IC5A $ MOVL w*CHAN2 W*BASS+DASSGNS_CHAN ; set channel number 
1061 SDASSGN_G W*DAS 3 try .G form 
1594 8 FAIL_CHECKNP SS$_NORMAL ; check success 
4 DD 1C6A PUSHL Bsss NORMAL 
FEOS CF 1 FB 1cee ALLS @# W*™REG_CHECKNP 
1€71 3009 SDASSGN_S CHAN=W*MBCHAN : get rid of the mailbox 
1C¢7D 10 FAIL_CHECKNP S$S$_NORMAL 3 check success 
3 DD 1C7D PUSHL Bsss NORMAL 
FDF2 ff 1 F 1C7F CALLS g »W*™REG_CHECKNP 
320°CF 8 1eee 011 TSTW W*CHAN1 ; is there a channel #1 
a2 1€88 ots BEQL 3; br if error 
O322°CF B5 ieee 1 TSTW W*CHAN2 ; is there a channel #2 
20 «12 He: 33 bie 108 BNEQ 20$ : br if no error 
O307"CF OO31'CF ODE 434! 818 MOVAL W*ASSIGN,W*SERV_NAME ; set service name 
F6C8 CF 00 FS 1697 201 CALLS #0,W*STORE_STEP > save the step information 
52. F7FO CF DO 1¢9¢ 018 MOVL WELBP,R2 : get error log buf pntr 
82 01 90 ICAI 201 MOVB #1,(R2)+ 3; save longword count 
82 O139°CF DE 1CA& 2020 MOVAL W*CS4,(R2)+ : save string variable 
9 D4 1CA9 2021 CLRL 3; set new terminator 
F7E6 CF 5 dO iene : § 208 MOVL R2,W*ELBP 3; reset the buffer pointer 
F687 CF OO FB 1eey 024 CALLS #0,W*COUNT_CHAN ; check the number of assigned channels 
O324°CF F67F sf » b+ 8 5 pa y°TOTAL_CHAN,W*CHAN_ SAVE # cocrece # of channels? 
: br 
0307'CF 0045'CF DE 1¢0§ 0 4 MOVAL W*DASSGN,W*SERV_NAME ; set service name 
FO9A CF OO FB ICC 028 CALLS #0,W*STORE_STEP 3; save the step information 
52. F7CB CF «DO ICCA 2029 MOVL W*ELBP,R2 : get error log buf pointer 
82. 03 90 ICCF 2030 OvB 3, (R25+ : Save long word count 
® 62 CF = 3¢ 1eb¢ 031 MOVZWL W*TOTAL_CHAN, (R2)+ > save the received count 
8 O324°CF DO 1CD 0 § OVL W*CHAN_SAVE, (R2)+ 3; Save expected count 
82 01B8'CF DE 1CDC 0 MOVAL Yaapees er” 3; save eer rag variable 
D4 1CE1 2034 CLRL (R2) 3 set a new terminator 
F7AE CF 5 dO Sea Bae 30s MOVL R2,W*ELBP 3; reset buffer pointer 
04 1CE8 2037 RET 3 return 
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(USING THE PUTMSG MACRO). . 
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PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
RSB tees AND RETURN TO CALLER 
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* MACRO EXPANSION. 
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«WORD 0 ; ENTRY MASK 
JMP aCHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 


RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ....° MACRO 


® 
* 
® 
e 
® 
& 
® 
* 


0099 
QOO00059'FF 1 


dh dd OUD 
VSVVCVCVCV VVC CVO VCC COO VOVGVFGAAAOMOOOOO 1 


99909 NUMMUMIMIUIVIVIVIVIVIVIVIVIVI SE OOOOOOoOovoo .=m=< 


COOOCGCOCOCCOCOCOCCCOCCOCOCOCOCOCOMMMMMmMmMmmm cma 


COONAN AN OS OD NOA UNE UP" O DOONAN 


~ END SATSSSO1 


mn N un wer ayes Oe 
ir GCOOOCOO oo So COOoOCOoCoo°oo ooooo oOo | 


wo nnn nun nnunnnnn Hunn u nHHnHnHHnHnHhHnHnHhHhhas 


ow 
oo 
ww 
coco 
ow 
-r 
's 
aa 
usw 
wn = 
i) -— 
Oo 
z 
wa w 
w= pa aul a a 
= oau ” v om i ~ oa ed Lh 
v ozo zo = w 2 te ” oa ozoruw 
oO z>a <axx om z- © &£zEt =& a «wt ~~ 2a 220<4—aw 
-_- wo Vwe z=<zo Or wm ‘(ww <« = RKnN@ | Owewoewr 
= <zoaz C20 I>x>wa2ze Wwwweow Ze =>.l—(C<C MF VO SVVUVUr IEZBA-OwY 
a £ sees 'ws vSowmowirtw2Zz wEEBEes § i oe Qa = Vx KOU Ix OO Da = 
‘'- PAO PA <= FEOCHID Sr ae zoe xwSs ‘wv <ww JBewe SZYBOw 
Beez wwuovurw Z2ZZzzazr tpeseeteet tu Ween we ao t sespepepeeee eee ets 
Orw OOOO V8SUEEEEEEZEE SH tert oo ‘|< Daw eee a a ee 
AYA JUIIIIMYONYM VPAPAHAAGAGCAOEMMMMSMSM 11 MHZA DWOOH APO AP AA BP HAP So 
JI & IJ JIIIPMWNNSR I> > >>> PDDVVMVVNNNOE BH HOD JIS wWADMDOODODOOOOOOOOO®@ 


www Slt all www MTN w VII FPF FOO ST WF 

COOoCoCoOooO polo lololo) oooo°oo oooo o COOOCCOCOCOOCCOOOOOO 
Pat 

@aaacaa @eaeaca @aacaacae aaca ax @waacacaacacacacae 


gtererese 
reeeeaene 


SSSSSSSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SOSCSOCSCSOSCSOSOOSOOSOSOSOOSSOSS OS OOS Oooo oS 
SOOSCSCSOSCOSOSSSSBSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSGSOGSSSSSSSESSS 


? 
= SATS SYSTEM SERVICE TESTS suce $.C.) "8 


habs 
a 
= 
— 
4 


_CHK 
ACMODE 
‘ LENGTH 
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SATSSSO1 
Symbol table 
ALLDAL 

ALLO 

ALLOC 

ALLOCS 
ASSDAS_CHK 
ASSIGN 
ASSIGNS 

BUF _CHECK 
CANT 

CANCEL 
CANCEL$_CHAN 
CCBSC~ 

CHAN 

CHAN 
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SATSSSO1 
Symbol table 
Q10w$_P5 = STP 
Q10w$-P6 = STP 0 
Q10wP R STP 
REG 15D R STP ; 
REGNUM | FR STP 
REG_CHECK 138F R 4 STP 34 
reectave as 
REG SAVE _AREA a R iP 
RETADR DR TP 
RETURN_PC 1 z R 4 TPA 
spisss0 Sauetes a Gy Etna? 
SERV_NAME 0 R 0 STP42 
SETUP_ SUPER op 1137 R 4 STPS 
St" Gave rp = Souaa9ee aH 
SF SL” SAVE -PC = 900010 S18 
SHRSR_SHRBEF s seed STP 
HRS_TEXT = dt 9 STS$V_INHIB_MSG 
Souggssa #8 SURER none 
$S$_ABORT 2 00000 2c SYS$ACLOC 
SSe-PADORFITE 2 09000870 Sy Ssassin 
SS$_NORMAL = 000 1 SYSSCANCEL 
SS$_NOSUCHDEV = SEs SYSSCMEXEC 
Siar aN = $0090089 R «3 SY SSC REMBA 
STATI 39 0 $4 R 03 SYSSDALL 
ster oo000ca yespcccnn 
= 
STORE_STEP 900) 4 R 0% SYSSDELMBX 
STPO 0 9 DR 4 SYSSDLCEFC 
sla est RHA 
STP11 12 R 4 $FAO 
STP1 $00 5C R 4 SYSSGETCHN 
STPla BOOOe6E RO SYSSCETDVY 
STP15 0 483 R 4 SYSSGETMSG 
STP1 0 of R 4 SYSSHIBER 
TP] OER Ok ayesaio 
STP1 ero R 4 SYS$Q10W 
Teo eS SETA 
STP21 36 8 4 SYSSSETPRV 
STP ¢ 778 R 4 SVSSTRNLOG 
STP 78 8 4 SYSSWAITFR 
STP24 & 4 SYSSWAKE 
STP25 60 R 4 SYSTEST_DIR 
STP $ CF R 4 TEST_DATA 
STP F2 R 4 TEST-MOD_BEGI 
STP28 913 R 4 TEST-MOD-FAIL 
STP29 981 R 4 TEST_MOD-NAME 
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SATSSSO1 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:44:47 VAX/VMS Macro V 
Symbol table ise 2:39:99 UETPSY.SRCJSAT 
TEST_MOD_NAME _D 9R 
TEST_MOD_SUCC 9 R 
TMD _ADDR 4C R 
TMN_ADDR 48 R 
TOPSYS 4D2 R 
TOPSYS_DIR R 
TOTAL_CHAN R 4 
TP R 3 
UETPS_DATAER = 0074 
UETPS_SATSMS = 0074 p 
UETPS_TEXT = 007411 
UM 4 a8 R 02 
WARNING = 00000 

tamer een meneame cman d 

: Psect synopsis ! 

dome ern mn emer wrenane + 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 <¢ 0.) 0O¢ QO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD 
SABSS 44 4 ( ) 83 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D 
RODATA QOOO2ZEC ( 748.) ¢ ( q° NOPIC USR CON REL LCL NOSHR NOEXE RD 
RWDATA QOOOO4FB ( 1275.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSSO1 00001D0D ( 7437.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD 

deerme an nnn Te ee 7 
! Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 33 0:00:00.09 0:09: 0.48 
Command processing 112 8: :00.63 8:8 701.54 
Pass 1286 :Q0: 3°45 0:01:00.91 
Symbol table sort 0 0:00:03.7 0:00:04.43 
ass 846 3: - 2 1 0:00:10.90 
Symbol table output :00:00. : Bs Sg 
Psect synopsis output 0:00:00. 0: 838 -B8 
Cross-reference output 0 0:00: 9-99 B38 +99 «80 
Assembler run totals 2301 0:00:47.4 0:01:19.09 


The working set Limit was 1800 pages. 

210140 bytes (411 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 120 pages of symbol table space allocated to hold 2297 non-local and 50 local symbols. 
4009 source Lines were read in Pass 1, producing 48 object records in Pass 2. 

OS pages of virtual memory were used to define 100 macros. 
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VAX=11 Macro Run Statistics 


Macro Library name 


rBe5580y att’ braries) 


SDUA Stat doe ea aye? 
SUA 
Ogu MLB: 1 
ts Sy81 STARLET, MLB; 2 
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! Macro Library statistics ! 


Seeeeeeeeeeeeeeseseeeoeeeoen} 


Macros defined 


2752 GETS were required to define 97 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSSO01/0BJ=0BJ$:SATSSSO1 MSRC$:SATSSSO1/UPDATE=(ENHS$: SATSSSO1) +EXECML$/LIB+SHRLIB$:UETP/LIB 
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